LA PRIMA RIVISTA EUROPEA DI SOFTWARE PER PERSONAL COMPUTER 
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Spectrum, DAI, Apple II, 
HP85-87, Atari, TI99/4A, 
Atom, Sharp, TRS-80, 
Osborne I, Triumph Adler 


In questa guida sono riportati i per- 
sonal computer e i microprocessori 
di cui si parla negli articoli e nelle 
rubriche. 
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UNA PUBBLICAZIONE DEL GRUPPO EDITORIALE JACKSON 


EDITORIALE 


Software e idee 


Mauro Boscarol 


Personal Software, appena nata, è già adolescente. 
Ed ha le sue crisi di crescita. La stiamo curando (an- 
che se non si tratta di malattia, ma di fenomeni fisio- 
logici) ed anzi è quasi guarita. Alcune delle imperfe- 
zioni più vistose sono già sparite, altre cose sono 
migliorate. E d’ora in avanti, speriamo tutti, sarà più 
puntuale agli appuntamenti. 

Il suo termometro sono le lettere dei lettori. Non 
possiamo rispondere a tutti, ma teniamo conto dei 
suggerimenti di tutti. C'è chi perora la causa del Te- 
xas, chi del computer di Nuova Elettronica, e chi del 
VIC 20, dello ZX81, dell’Osborne, dell’Olivetti. Na- 
turalmente ci sono delle difficoltà a fare tutto per 
tutti. Alcuni computer non li abbiamo in redazione: 
chiediamo ai lettori di aiutarci inviando programmi 
immediatamente pubblicabili, senza nostra verifica. 
Altri possiamo invece caricarli, eseguirli, correggerli, 
ristamparli. Per altri ancora, che pubblichiamo in una 
certa versione, aspettiamo le conversioni dei lettori 
per altri computer. Cerchiamo di fare il possibile. 

Ma c’è un punto fermo che è il nostro principio 
fondamentale. Bene i programmi, ma meglio lo scri- 
vere come si fanno, come ssi risolve un problema, 
come si superano le difficoltà tecniche. Tra un pro- 
gramma che calcola media e varianza e un buon arti- 
colo che illustra le tecniche di ricerca in una tabella, 
preferiamo il secondo. Tra una caccia al dragone e 
una illustrazione sulle tecniche della grafica tridimen- 
sionale, preferiamo la seconda. Tra un gioco (non 
intelligente) in cui il computer serve solo da 
“telecomando“ e un gioco (intelligente) in cui il com- 
puter può sviluppare una strategia, preferiamo que- 
st’ultimo. Anche se il primo è ad alta risoluzione e a 
colori, e il secondo senza grafica. 

Insomma, il computer ci deve dare una mano per 
capire, per organizzare il pensiero e i ragionamenti, 
per farci crescere intellettualmente. Naturalmente, 
nell’area che ognuno predilige: la grafica, l’organiz- 
zazione degli archivi, l'intelligenza artificiale, la mu- 
sica o la matematica. 

Noi, insomma, siamo per le idee. Supportate da 
una tecnica, naturalmente, ma che è appunto un sup- 
porto. 

Anche in questo senso Personal Software continua 
a crescere, e i pareri dei lettori sull'argomento ver- 
ranno discussi e pubblicati. Come, naturalmente, i 
loro articoli, che sollecitiamo. Articoli con program- 


mi (meglio) o senza (va bene lo stesso), ma articoli 
con idee. 

In fin dei conti, con un giochino ci si può divertire 
un’ora, ma un’idea ci può avvincere per sempre. 


Ò” 


Ed ora vi presento il “menù” di questo mese. 

Antonio Filz, di Trento, ha scritto una bella serie 
di routine in Basic, adatte a qualunque personal com- 
puter, che permettono di eseguire operazioni con nu- 
meri interi molto più lunghi di quelli che generalmen- 
te sono implementati negli interpreti Basic: con le 
sue routine si possono eseguire operazioni su numeri 
con 1000 o 2000 cifre. 

Matteo Cerofolini, di Modena, ci propone alcune 
routine di aritmetica intera sul 6502, ed alcuni test 
per la verifica della loro velocità d’esecuzione, arri- 
vando a concludere che, se vogliamo avere program- 
mi veloci e che occupino poco spazio, dobbiamo scri- 
verli in linguaggio macchina. Nessuno pensa di in- 
viarci qualche articolo sul linguaggio macchina per 
principianti? î 

C'è poi un simpatico programma di Carlo Sintini di 
Latina: il calcio, scritto per il PET/CBM. Aspettiamo 
qualche conversione, almeno per il VIC. 

Segue un articolo sulla pirateria nel software: le 
tecniche di protezione più utilizzate e le problemati- 
che connesse. 

E infine le rubriche. Nei Segreti dei personal Ettore 
Massimo Albani, di Foggia (ma trascorre la maggior 
parte del proprio tempo a Padova) spiega come fare 
in modo che il PET/CBM si autoprogrammi; Enrico 
Ferreguti di Venezia scrive su come velocizzare un 
programma per ZX80/ZX81; e infine per i possessori 
di VIC vi è una simpatica utility. 

Nella Raccolta di routine Basic questo mese ho 
scritto io: presento un programma per il controllo del 
codice fiscale. 

E poi, e poi... ma a questo punto vi conviene sfo- 
gliare la rivista. 


ATTENZIONE 


Il prossimo numero di 
Personal Software 
sarà in edicola 
il 15 Aprile. 


POSTA 


In questa rubrica rispondia- 
mo alle lettere di carattere ge- 
nerale. 

Scrivete a 


Personal Software 
Via Rosellini 12 
20124 Milano 


Personal Software, 
ti seguo da due numeri e franca- 
mente mi piaci. Mi spiego: mi pia- 
ci come idea, ma per il mio com- 
puter non c’è niente... Ho uno 
Sharp PC-1500 più stampante plot- 
ter CE 150, l’ho comprato perché 
è portatile (ma non dispero di col- 
legarlo a un video) e lo uso preva- 
lentemente per interesse e hobby. 
In effetti mi piacerebbe ci fosse un 
angolo per la PC-1500 su P.S., e 
così vi chiedo se vi posso inviare i 
miei listati. Si tratta di programmi 
matematici e hobbistici, e, come 
tutti i programmatori dilettanti, 
credo fermamente che siano i mi- 
gliori. Dunque, ecco le domande: 
1) Posso inviare i programmi? 
2) Solo listato o anche cassetta? 
(Tenete conto che le cassette co- 
stano un occhio.) 
3) C'è un compenso? (Giusta gra- 
tificazione per il lavoro compiuto.) 
Grazie in anticipo per la rispo- 
sta, sul giornale o per lettera. 
Ernesto de Bernardis 
(Catania) 


Può senz'altro inviare program- 
mi. Meglio listato e cassetta, così 
possiamo verificare ed eventual- 
mente sistemare il listato. Il pro- 
gramma verrà esaminato dalla re- 
dazione e se sarà giudicato pubbli- 
cabile verrà compensato alle tariffe 
consuete. 

Attenzione: un’alira possibilità 
da tenere in considerazione è la 
conversione per il suo computer di 
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programmi già apparsi sulla nostra 
rivista in altre versioni. 


Gentile Direzione 

Può la Vs. Rivista promuovere 
gli scambi di programmi (scientifi- 
ci, applicativi, aziendali, etc.) tra i 
lettori? 

È, secondo me, una iniziativa 
utile a molti: una specie di merca- 
to interno di personal software. 

Con la speranza che la mia pro- 
posta sia presa in considerazione, 
porgo i migliori saluti. 

dr. Roberto Martino 
Istituto di Fisiologia umana 
Università degli Studi di Padova 


Già negli scorsi numeri sono ap- 
parsi alcuni piccoli annunci. Ma da 
questo numero la rubrica è più or- 
ganica. 

Nella pubblicazione la preceden- 
za va naturalmente agli annunci re- 
lativi a software, libri e riviste. Gli 
annunci relativi all’hardware ver- 
ranno anche pubblicati, ma com- 
patibilmente con lo spazio lasciato 
a disposizione dagli annunci di 
software. 

Per facilitare la lettura abbiamo 
diviso gli annunci secondo il siste- 
ma cui si riferiscono. I lettori che 
hanno altri suggerimenti sulla ru- 
brica, ce lo facciano sapere. 


Spett. Redazione, 
credo innanzi tutto sia mio dovere 
farvi i miei complimenti riguardan- 
te la vostra rivista, dato che è for- 
se l’unica in questo settore che rie- 
sca nello stesso tempo a fondere la 
pratica riguardante il notevole nu- 
mero di programmi; e la teoria nei 
riguardi degli eccellenti servizi di- 
sponibili su di essa. 

Non sono un assiduo lettore di 
nessuna rivista in particolare, ma 


ne compro varie a seconda del lo- 
ro contenuto o dell’interesse che 
suscitano in me. Questa però, de- 
vo proprio dirlo, è forse l’unica 
che ha risvegliato in me l’interesse 
che nasce da una buona lettura. 
Devo però fare un piccolo rimpro- 
vero (se mi è consentito), ma non 
rivolto alla vostra rivista in specifi- 
co modo, ma rivolto a tutte indi- 
stintamente. Su ogni rivista da me 
fino ad ora sfogliata ho sempre vi- 
sto listati di programmi per perso- 
nal e mini ben specifici che non 
superano i 3 o 4 modelli. x 

Modelli che vanno dal più pic- 
colo come il Sinclair, al più famo- 
so come l’Apple, o altri come il 
VIC 20, il TRS-80, ecc. 


Riconosco perfettamente cosa 
significhi per qualsiasi casa editrice 
il pubblicare listati di programmi 
di vari personal, ma spaziando in 
lungo e in largo ne ho trovati dei 
più svariati ma sempre per i mo- 
delli sopra citati. Ora, arrivando al 
nocciolo della questione, vi chiedo 
specificamente per il mio proble- 
ma (forse molti me ne vorranno 
per questo) non sarebbe ora di to- 
glierci questi paraocchi ed iniziare 
ad aiutare anche gli altri utenti di 
personal? Naturalmente se ho por- 
tato avanti questo discorso è per- 
ché sono un diretto interessato, 
possessore di un 77 99/4A. Un ve- 
ro e proprio personal che non do- 
vrebbe essere disprezzato solo per 
l'appellativo che gli è stato dato di 
computer da casa. Anzi credo pro- 
prio che potrebbe essere messo al- 
lo stesso livello di molti altri per- 
sonal, che ora non sto a citare, se 
non anche su un gradino più in al- 
to. Perché allora non si sono mai 
visti servizi di nessun genere ri- 
guardante questo personal? Dato 
il mio insuccesso perché non ini- 
ziate voi di Personal Software a 
farne qualcuna? Potreste inserire 
qualche servizio su “I segreti dei 
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personal”. 

Rinnovo i miei complimenti alla 
redazione ed ai collaboratori tutti 
e colgo l’occasione per augurarvi 
un buon anno. 

Cordiali saluti. 

Roberto Marchetti 
L’Aquila 


Il Texas TI 99/4A è da poco 
tempo in commercio in Italia, ed 
inizia solo ora a diffondersi. Un 
segno di questa diffusione sono le 
decine di lettere come questa che 
abbiamo ricevuto. 

Naturalmente ne teniamo conto, 
e ci stiamo attrezzando. 

Ma uno dei punti della nostra fi- 
losofia è fare una “cultura del 
software” piuttosto che una distri- 
buzione di “cibi precotti”. In que- 
sto senso, tutti gli articoli e i pro- 

© grammi che pubblichiamo, anche 
se non specifici per il Texas, posso- 
no adattarsi ad esso. L’esercitarsi 
in questo campo aiuta a crescere. 


Egregio direttore, 
ho letto con interesse i primi due 
numeri della rivista Personal Soft- 
ware, ed anche gli editoriali che 
portano la sua firma. Facendo ri- 
ferimento all’ultimo capoverso del- 
l’editoriale pubblicato sul n. 2 del- 
la rivista, mi permetto di esprime- 
re le seguenti opinioni personali 
sul sommario e più generalmente 
sul contenuto della rivista. 

1. I programmi finora pubblicati 
(terza parte del sommario) si rife- 
riscono esclusivamente a giochi. 

È pur vero che molti utenti di 
personal computer utilizzano que- 
sto tipo di software, tuttavia que- 
sto prodotto è utilizzato da una 
particolare utenza oppure da uten- 
ti diversamente impegnati per i 
momenti di distensione. 

2. Avendo visto la rivista in ma- 
no a miei allievi, a colleghi docen- 
ti di informatica e ad utenti di per- 


sonal computer titolari di studi di 
progettazione, penso che sotto la 
voce “programmi” possano com- 
parire degnamente anche prodotti 
software didattico/applicativi. Ad 
esempio possibili argomenti da 
pubblicare con la documentazione 
ed i listati potrebbero essere: 

® risoluzione di equazioni non al- 
gebriche con metodi iterativi (per 
studenti, insegnanti e progettisti). 
© algoritmi notevoli per la deter- 
minazione del massimo o del mini- 
mo di una funzione reale di una 
variabile reale. 

® la simulazione mediante elabo- 
ratore di fenomeni fisico/chimici, 
meccanici o idraulici. 

® metodi approssimati per il cal- 
colo di derivate, integrali oppure 
per l’interposizione di punti speri- 
mentali. 

Non sapendo al momento quali 
siano i vostri progetti le invio la 
documentazione ed il listato della 
procedura relativa al primo argo- 
mento, intendendo che le mande- 
rò anche i rimanenti qualora essi 
presentassero, nello spirito della 
rivista, un certo interesse. 

Con la speranza, ché tale era 
l'intenzione, di essere stato co- 
struttivo Le invio i più cordiali sa- 
luti. È 

Angelo Cappellini 
Pavia 


Non è esatto che i programmi 
pubblicati si riferiscono esclusiva- 
mente a giochi. Comunque, come 
avrà visto, ora la sezione 
“Programmi” non compare più. 

Dopo averla pubblicata per tre 
numeri, ci siamo resi conto che 
non aveva ragione di esistere. Un 
programma richiede sempre un’in- 
troduzione, una spiegazione, dei 
commenti, degli schemi, e tutto ciò 
trova maggior respiro nello spazio 
di un articolo. 

In questo senso la rivista è fatta 
di “programmi”, e una sezione se- 
parata con questo nome ci è sem- 


brata priva di senso. 

Per quanto riguarda le sue pro- 
poste, le confessiamo che gli argo- 
menti che ci propone ci trovano 
molto poco entusiasti. Secondo noi 
si tratta di metodi e tecniche sen- 
z’altro utili, ma noiose e in qualche 
modo “gratuite” se non applicate a 
qualche problema reale. E poi, in- 
somma, sono cose ormai vecchie, 
alcune di un paio di secoli, di cui 
si conosce praticamente tutto, e su 
cui esistono centinaia di trattati. 

Un punto interessante semmai è 
quello della simulazione, se fatta 
con un po’ di fantasia e... allegria. 
Aspettiamo contributi in proposito. 


Spett.le Direzione, 
la presente per rivolgerle una criti- 
ca, che spero venga utilizzata co- 
struttivamente, sui programmi 
pubblicati sulla rivista Personal 
Software. 

I programmi, relativamente al 
VIC 20, risultano scritti talmente 
in piccolo che ne risulta impossibi- 
le la lettura e quindi l’utilizzazio- 
ne, a meno di non usare una forte 
lente. 

I caratteri in campo inverso dei 
suddetti programmi sono poi asso- 
lutamente illeggibili anche usando 
un ingranditore. 

Non è possibile, considerando 
che l’impiego dei personal si sta 
estendendo a macchia d’olio, in- 
grandire i listati in modo da ren- 
derli comprensibili ed utilizzabili 
anche da parte dei principianti? 

Non sarebbe possibile raccoglie- 
re dopo alcuni numeri della rivista 
i programmi in una cassetta da al- 
legare alla rivista stessa. 

Ringraziando dell’attenzione 
prestatami siano graditi cordiali 
saluti. 

Bernardino Calza 
Piacenza 


I suoi rilievi tecnici sono corretti, 
e sono i nostri problemi nell’impa- 
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ginare la rivista. Cerchiamo di fare 
il meglio possibile. 

Per quanto riguarda la raccolta 
su cassetta, pensiamo di farlo dopo 
aver raggiunto un certo numero di 
programmi. 


Gentili Signori, 
sono un ragazzo sedicenne appas- 
sionato di informatica e di perso- 
nal computer, ed ho molto gradito 
la comparsa della vostra rivista: si 
sentiva la mancanza di un periodi- 
co specializzato nel software. 

Certo, vi sono altre riviste dedi- 
cate a temi più ampi, quali l’infor- 
matica in generale 0 il mercato dei 
personal, ma proprio per la loro 
ampiezza di temi rischiano a volte 
di diventare inconcludenti. 

Pur nella soddisfazione di veder 
colmata una lacuna in un campo 
che da fantascienza sta assumendo 
a mano a mano sempre più la qua- 
lifica di “quotidiano”, “di massa” 
(io stesso, fino ad un anno fa non 
sapevo niente di calcolatori elet- 
tronici che non fossero le macchi- 
nette da tavolo o da tasca), devo 
tuttavia notarne una mancanza: 
nella vostra rivista di programmi, 
ho notato con rammarico la man- 
canza dei programmi dedicati al 
VIC 20/CBM. 

Devo anche dire che questa è 
un’opinione personalissima e fa- 
ziosa, dato che io personalmente 
possiedo quel computer, ma in 
tutta onestà penso che uno sguar- 
do verso i cugini più piccoli lo si 
potrebbe anche dare (visto che è 
presente anche la parte del Sin- 
clair). 

Senza contare che il VIC ha la 
possibilità di disegnare in grafica, 
possibilità che il PET, che pure è 
della stessa casa produttrice, non 
ha. 

Passando ad altro, devo dire che 
apprezzo molto la proposta fatta 
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nell’editoriale della “rivista 
aperta” che accetta articoli di let- 
tori; vorrei inoltre suggerire alcuni 
temi che potrebbero essere tratta- 
ti: 

® la programmazione dei giochi di 
scacchiera (mi riferisco soprattutto 
alla tecnica “di ricerca ad albero” 
che nell’articolo “Ricorsività in 
Basic” del n. 1 mi ha molto incu- 
riosito); 

® gli altri linguaggi in circolazione 
sui personal (soprattutto il Pascal); 
® perché no? il famigerato lin- 
guaggio macchina: “In che cosa si 
differenzia un programma in LM 
dal corrispondente in Basic (Pa- 
scal, ...)?”, “Quali sono i pregi ed 
i difetti di un programma in 
LM?”, “Come ci si deve porre un 
problema programmando in LM?” 
sono dei quesiti che spesso mi 
pongo. 

Sperando che la rivista manten- 
ga tutte le buone qualità che sem- 
bra offrire, voglio porvi l’unica do- 
manda: accettereste programmi 
dei lettori da esaminare, criticare 
e, a vostra discrezione, pubblicare, 
su un determinato argomento? 

Vi ringrazio per la cortese atten- 
zione nel giungere fino in fondo a 
questa lettera e vi saluto cortese- 
mente. 

Stefano De Santis 


Sul VIC 20 abbiamo pubblicato 
e pubblicheremo. Sulle collabora- 
zioni, l'abbiamo detto: le aspettia- 


Ecco dove trovi il tuo VIC 20 


ve 
Bit Shop Primavera DIS ) 


- 
Negozi G.B.C. 
Negozi Expert 

Negozi Singer SINGER 
La Rinascente IR 
Salmoiraghi (2) 


Temporex Italiana 


Via Zurigo, 14 
20)147 Milano=Tel. 02/41.55.396 - 41.54.883 
1 migliori negozi di elettrodomestici e Hi-Fi 

1 migliori negozi di giocattoli 

I migliori “computer shop” 


Distributori Commodore: 


Liguria - Pirisi Informatica 
Piazza Cavour, 19 - 16043 Chiavari 
Tel. 0185/30. 10.31 


Piemonte - Aba Elettronica di Caramia 

Via Fossati, 5/C - 10141 Torino-Tel. 011/33.20.65 
Lombardia - Homic Personal Computers srl 
Piazza de Angeli, 3-20146 Milano-Tel. (12/49.88.201 
Veneto, Friuli-Venezia Giulia, 

Trentino-Alto Adige 

CO.R.EL. Italiana Udine 

Via Mercatovecchio, 28 - 3310) Udine 

Tel. 0432/29. 14.66 

Emilia-Romagna, Marche - S.H.R. srl 

Via Faentina 175 

48010 Fornace Zarattini (Ravenna) 

Tel. (0544/46,32.0) 

Toscana - M.C.S. Spa 

Via Pier Capponi. 87 - 50132 Firenze 

Tel. 


el 57.13.80 
Umb Alto Lazio 
Atlas System srl 


Via Guglielmo Marconi. 17 - 01100 Viterbo 

Tel. 076 1/22.46.88 

Lazio, Kiber Italia srl 

P.le Asia. 21 - 00144 Roma Eur - Tel. 06/59. 16.438 
Abruzzo, Molise - Pragma System srl 

Via Tiburtina, 57 - 65100 Pescara - Tel. 085/50.883 
Campania - Graal Systems - Elaboratori Gestionali 
Via P. Grisignano, 4 

84100 Salerno-Tel. 089/32.17.81 

Puglia - Maselli x l'ufficio 

Via L. Zuppetta, 5 - 71104) Foggia 

Tel. 0881/76.1.11 

Business Automation Systems srl 

Largo De Gemmis, 46/B-46/C-48-48/A -48/B 
70124 Bari - Tel. 080/22.75.75-22.73.44 

ingelo Computers srl 

sio. 25 - 87100 Cosenza 


Via La Farina, 141 Is. L - 98100 Messina 

Tel. 090/2928269 

Sardegna - 5.1.1. - Sistemi Integrati Informatica 
Via S. Lucifero. 95 - 09100 Cagliari 

Tel. 0)70/66.37.46 

Oppure: 

Rebit Computer - Tel. 02/61.22.371 


Perchè accontentarsi 
di un videogame? 


Oggi c'è VIC 20 computer. 


VIC 20 computer. Un bel la lingua del futuro, lo sofisticato basta espanderne 
passo avanti invece dei usi per la scuola, la memoria, aggiungerci una 
soliti videogames. per l’ufficio, per stampante, il floppy... il tutto 
Allo stesso prezzo la casa. VIC 20è a prezzi eccezionali. 
però! Con VIC 20 non un vero com- Come il VIC 20, del resto: 
ti limiti a giocare conle .W? puter. E quando 495.000 + IVA. 
cassette: ti inventi tu i ) vuoifarlo diven- Un consiglio? 
tuoi giochi, impari a tare uno strumento Compra subito il tuo VIC. 
programmare in “Basic” ancor più Agli indirizzi qui indicati. 
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COMPUTER 
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LOAD e SAVE: 16k byte/ 


inclai esteso con funzioni a 


ROM e 16k byte RAM, 
ROM e 48k byte RAM. 


CPU E MEMORIA ESPANDIBILE 

Microprocessore Z80A. . 
ROM 16k contenente l'interprete BASIC e il sistema 
operativo. 

RAM 16k espandibile a 48k byte. 


TASTIERA MULTIFUNZIONE 

È dotata di 40 tasti mobili che danno accesso a caratteri 
maiuscoli e minuscoli ASCII. 

Tutte le parole chiave del BASIC sono ottenibili tramite un 
singolo tasto. Inoltre sono disponibili 16 caratt rafici, 
22 codici di controlli colore e 21 caratteri grafici definibili 
dall'utente. 

Tutti i tasti sono dotati di ripetizione automatica. 

Sono presenti i comandi di cursore. 


GRAFICA AD ALTA RISOLUZIONE 

Lo ZXSpectrum può essere collegato direttamente a 
qualsiasi televisore a colori PAL o in bianconero. 

Sono generati 8 colori: nero, blu, rosso, magenta, verde, 
azzurro, giallo, bianco - sui televisori in bianconero essi 
appatono come una regolare scala di grigi. 

La grafica è a 256x192 punti. | testi sono visualizzati in 24 
linee di 32 caratteri ciascuna. Testo e grafica possono essere 
sovrapposti. Le istruzioni grafiche BASIC permettono il 
tracciamento di punti, linee, cerchi ed archi di cerchio. 


Di ogni carattere viene memorizzato il colore, il colore 
dello sfondo, lo stato fisso 0 lampeggiante, la luminosità 
normale o extra, il modo diretto o inverso. 


MAGENTA 


TRUE VIDEO INV.VIDEO 


BLUE 
EDIT 


neD 
CAPS LOCK 


OPEN # 
DEF FN 
SIN 


ASN Si 


READ RESTORE N 
} ' LI 
Ù LpRIN 
xp 
UN 
A MLA 
\PEF 
BEEP IL G 


Gli attributi di ciascun carattere possono essere determinati 
indipendentemente da quelli dei caratteri presenti 
contemporaneamente sullo schermo. 

Normalmente le prime 22 righe visualizzano il listato — 
mentre le ultime due sono riservate per evidenziare la linea 
di programma in fase di editing. 

Per l'editing si ricorre ai comandi di cursore. 


SUONO ? 
l'altoparlante interno può riprodurre una scala di più di 

10 ottave, esattamente 130 semitoni, attraverso il comando 
BASIC BEEP. Le prese di tipo jack nella parte posteriore del 
computer permettono la connessione con altoparlanti e 
amplificatori esterni. 

OPERAZIONI E FUNZIONI 

Oltre ai normali operatori matematici sono presenti 
funzioni trascendenti: seno, coseno, tangente e inverse; 
ogaritmi naturali ed esponenziali, funzione segno, valore 
assoluto, IEGCR radice quadrata; pigreco; generatore di 
numeri casuali. 

numeri memorizzati occupano 5 byte: il campo è da 
3x107° a 7x10?* con accuratezza di 9% cifre decimali. 

Si possono trattare numeri binari, effettuare operazioni 
logiche, definire funzioni da parte dell'utente. 

È presente un meccanismo completo di DATA, che include 
i comandi READ, DATA e RESTORE. 

Si possono effettuare operazioni sulle stringhe: 
concatenazione, segmentazione, estrazione di parti. 
vettori possono essere multidimensionali con indici che 
partono da 1. 


Bin 


OVER 


BRIGHT 


INTERFACCIA CASSETTE LA . 

Lo ZXSpectrum è dotato di un sofisticato sistema di 
registrazione su cassette che assicura una registrazione 
affidabile anche su apparecchi con livello di registrazione 
automatico. LIA 

È possibile registrare su cassetta programmi, interi schermi, 
blocchi di memoria, vettori contenenti dati. 

Programmi e vettori possono essere fusi con altri già 
esistenti in memoria mediante caricamento dal nastro. 

È possibile registrare i programmi in modo da ottenere la 
partenza automatica del programma nel momento stesso in 
cui il programma viene ricaricato. i 

L'interfaccia a cassette opera a 1500 baud tramite 2 jack da 
3,5 mm. La velocità è di 16k byte in 100 secondi. 


PORTA DI ESPANSIONE a 
Sul connettore posto nella parte posteriore del computer 
sono presenti tutte le linee di data address e contro propri 
dello Z80A; tramite questo connettore vengono 
interfacciate le periferiche. 
Sono presenti comandi che permettono di inviare e 
ricevere dei caratteri da questa porta. 


COMPATIBILITÀ CON IL SISTEMA ZX . 
Il BASIC dello ZX81 è essenzialmente un sottoinsieme del 


BASIC delloZXSpectrum. Le differenze sono le seguenti: 
non esistono i comandi FAST e SLOW in quanto lo ZX 
Spectrumopera alla velocità dello ZX81 in maniera FAST 
avendo comunque una visualizzazione stabile 
dell'immagine sullo schermo. 


16k + 48k byte. 
Tastiera multifunzione. 
Colore e suono. 

Grafica ad alta risoluzione. 
Software e hardware ZX 

là disponibile. 


È 


span 


ibilità totale. 


. 360.000 


più IVA 
NELLA VERSIONE 16K RAM 


Lo ZXSpectrum effettua lo SCROLL automaticamente 
chiedendo all'operatore una conferma ogni volta che lo 
schermo è pieno. 


L'insieme di caratteri dello ZX Spectrum è composto da 
caratteri ASCII al contrario dello ZX81 che adopera un set di 
caratteri non standard. 

programmi ZX81 possono essere trasferiti sullo ZX 
Spectrumcon poche modifiche, e possono essere 
considerevolmente migliorati grazie alla grafica ed ai colori 
disponibili. 

Le cassette di software registrate con lo ZX81 non possono 
essere lette dallo ZX Spectrum. 

Lo ZXSpectrum non è compatibile con le espansioni di 
memoria dello ZX81. 

Lo ZXSpectrum è pienamente compatibile con la 
stampante ZX Printer. 
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è distribuito dalla 


REBIT COMPUTER 

Via Induno, 18 

20092 CINISELLO BALSAMO 
Casella Postale 10488 MI 


A DIVISION OF G.B.C. 


IL BASIC E LA GESTIONE DEI FILE 


Il librosirivolgeinmodo particolare a chi già conosce il Basic e 
desidera poter realizzare programmi che prevedano l'uso di 
file residenti su disco. Dopo aver preso in esame, utilizzando 
numerosi esempi pratici, le particolarità del Microsoft, si pas- 
sa alla descrizione delle istruzioni necessarie ad una corretta 
gestione deifile sudisco, sia ad accesso diretto che sequenzia- 
le. Una terza parte del libro è infine interamente dedicata alla 
esposizione dei metodi pratici per l'uso dei file ad accesso 
diretto e dei data base. 


Cod. 515H L. 11.000 Pagg. 164 


75 PROGRAMMI IN BASIC 
PER IL VOSTRO COMPUTER 


Il volume raccoglie ben 75 programmi originali scritti in un 

generico, utilizzabili, salvo poche e semplici modifiche, 
SUlla maggior parte dei personal computer In commercio, a 
Cassetta come a floppy disk. Per ciascuno, dopo una descrizio- 
ne introduttiva, viene fornito ll listing e un campione di esecu- 
zione. Così come sono, i programmi proposti (tutt| verificati), 
‘costitulscono un valido ausilio per chiunque debba risolvere 
problemi di matematica, statistica, finanza 0, genericamente, 
di pratica utilità. — 


Cod. 551D L. 12.000 Pagg. 196 


CEDOLA 
DI COMMISSIONE 
LIBRARIA 


Ritagliare (o fotocopiare) 
e inviare a 

Gruppo Editoriale Jackson \, 
Via Rosellini, 12 - 20124 Milano N 


Nome e Cognome —6k6 


Indirizzo 


Cap. Città 


Partita I.V.A. (indispensabile per le aziende) 
della fattura 


inviatemi | seguenti libri: 


Codice 
Libro 


© Pagherò al postino il prezzo indicato + I. 2.000 per contributo fisso spese di spedizione 


Codice 
Libro 
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50 ESERCIZI IN BASIC 


Una raccolta completa e progressiva di esercizi riguardanti 
matematica, gestione, ricerca operativa, gioco e statistica. 
Ciascun esercizio proposto comporta l'enunciazione e l’analisi 
del problema, la risoluzione mediante flow-chart e commenti, 
così come un programma che implementa la soluzione, illu- 
strato da semplici esempi rappresentativi. 

Questo metodo mette in grado il lettore di verificare passo 
passo le sue conoscenze eil livello di apprendimento raggiun- 
to. 


Cod. 521A L. 13.000 Pagg. 208 


GIOCARE IN BASIC 


Nei giochi, il lettore può ritrovare tutte quelle situazioni reali di 
programmazione che gli saranno indispensabili nella com- 
prensione e realizzazione di qualsiasi applicazione interattiva 
del proprio computer, anche le più sofisticate. Questo senza 
annoiarsi, ma entrando da subito all'interno della materia per 
imparare a comprendere il BASIC, il proprio computer e.i 
computer in genere. 


Cod. 522A L. 20.000 Pagg. 324 
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Interi 


in precisione multipla 


Con queste routine il 
vostro computer potrà 
eseguire operazioni 
aritmetiche tra numeri 
interi con qualunque 
numero di cifre 


di Antonio Filz 


Le routine descritte in questo arti- 
colo hanno un gran numero di ap- 
plicazioni. 

Tra queste, il calcolo dei fattoria- 
li, la fattorizzazione in numeri pri- 
mi, e, recentemente, la criptografia. 

Ma per i lettori di Personal Soft- 
ware può essere interessante andare 
a vedere a pag. 17 del primo nume- 
ro. Lì si trattava della “congettura 
di Utam” e le poche cifre dei nume- 
ri interi non permettevano di esplo- 
rare a fondo il problema. Ora, con 
queste routine, invece... [M.B.] 


'è una cosa dei personal 
(Campi (ma d’altra parte 

anche di quasi tutti gli altri 
calcolatori) che mi ha sempre dato 
un certo fastidio. Hanno una preci- 
sione limitata: generalmente 9 cifre 
significative. (In questo articolo fa- 
rò riferimento a Apple II, che ho 
utilizzato per la stesura dei pro- 
grammi, e che ha appunto una pre- 
cisione di 9 cifre significative. Le 
routine che seguono hanno però 
una validità del tutto generale, co- 
me si vedrà più avanti). Facendo 
riferimento agli interi, che sono gli 
unici numeri che prenderemo in 
considerazione, ciò vuol dire che i 
numeri utilizzabili sono soltanto 
quelli con meno di dieci cifre (com- 
presi tra —10°+1 e 10°—1). Se ven- 
gono superati questi limiti, il com- 
puter passa automaticamente alla 
notazione esponenziale e non si ot- 
tengono più dei risultati esatti, ma 
soltanto loro approssimazioni. 

In molti casi sarebbe utile poter 
effettuare i calcoli con una preci- 
sione maggiore. Consideriamo ad 
esempio il problema di calcolare il 
fattoriale di un numero N (N!). Il 
fattoriale di un numero intero non 
negativo è così definito: 


1 se N=0 

MN = 
N: (N-1)- ... 2-1 se N>Q 
A parte il caso N=0, il fattoriale 


di N non è altro che il prodotto dei 
primi N numeri interi. Molti pro- 


blemi di combinatoria implicano la 
valutazione del fattoriale di numeri 
più o meno grandi. Per esempio: in 
quanti modi possono essere dispo- 
ste le 52 carte di un mazzo? La ri- 
sposta è 52! Questo numero ha 68 
cifre. In effetti, già quando N=13, 
N! ha più di 9 cifre. Come fare 
quindi a calcolare questi numeri 
enormi? Per superare questa fasti- 
diosa limitazione ho scritto delle 
routine che permettono di somma- 
re, sottrarre, moltiplicare, dividere 
(divisione con resto), elevare a po- 
tenza, confrontare, inserire, visua- 
lizzare, ecc., numeri interi arbitra- 
riamente grandi. La lunghezza di 
questi numeri è limitata soltanto 
dalla memoria del vostro personal 
e dai tempi di elaborazione. 

È importante chiarire che queste 
routine da sole non fanno nulla. 
Chi le utilizza deve scrivere un pro- 
prio programma principale che le 
consideri subroutine e le richiami 
mediante istruzioni GOSUB. Per 
comprendere bene questo fatto 
esaminate attentamente l’esempio 
riportato più avanti. 

Vediamo ora com'è organizzato 
questo package. 


Descrizione delle routine 


20000 Inizializzazione Questa 
routine, che deve essere chiamata 
all’inizio del vostro programma 
principale, serve a preparare, in 


” 


| 


registro 0 


registro 1 


registro 2 


registro 3 


registro 4 


Figura 1. Esempio di organizzazione di cinque registri. 


base alle vostre esigenze, un certo 
numero di registri che conterranno 
i numeri “grandi”. (D’ora in poi 
chiamerò numeri grandi quelli con- 
tenuti in questi registri, e numeri 
piccoli quelli delle variabili usuali). 
I registri sono costituiti dalla matri- 
ce NU (,), che conterrà le cifre 
dei numeri, e dai vettori SN( ) e 
PF( ) che conterranno rispettiva- 
mente i segni dei numeri (-1 nega- 
tivo, 0 nullo, 1 positivo) ed i punta- 
tori alla fine dei numeri. Ogni regi- 
stro è costituito da una riga della 
matrice NU( , ) e da un elemento 
di SN( ) e uno di PF( ). Nella fi- 
gura 1 è riportato, ad esempio, co- 
me verrebbero organizzati 5 regi- 
stri. 

La routine 20000 fissa inoltre il 
numero massimo di cifre che pos- 
sono essere contenute in un ele- 


mento di NU( , ) (memorizzato in 
CF) e la base di rappresentazione 
dei numeri (BB). Infatti i numeri 
grandi vengono considerati come 
numeri in base BB ed ogni elemen- 
to di NU( , ) contiene “una cifra” 
di questi numeri in base BB. 

AI momento dell’esecuzione vi 
sarà chiesto quante sono le cifre si- 
gnificative del vostro personal, 
quanti registri volete avere a dispo- 
sizione e quante cifre al massimo 
può avere un numero grande. In 
base alle vostre risposte la routine 
dimensiona la matrice ed i vettori. 
Ricordate che se risponderete di 
volere K registri, i loro numeri sa- 
ranno 0, 1,..., K-1. Alcune routi- 
ne utilizzano dei registri per me- 
morizzare risultati intermedi, quin- 
di se pensate di utilizzarle tenetene 
conto. La tavola 1 riporta una lista 


4321 | 8765 | 8909 | 4567 | 123 


puntato- 
re fine 
numero (4) 


cifre a gruppi di 4 in ordine inverso 


Figura 2. Memorizzazione del numero 1234567890987654321. 


i) 6532 | 7749 | 4081 1 
puntato- segno cifre a gruppi di 4 in ordine inverso 
re fine 
numero (3) 


Figura 3. Memorizzazione del numero —1408177496532. 
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delle routine che utilizzano dei re- 
gistri e quali registri usano. 

Ecco in un caso specifico cosa 
apparirà sullo schermo quando sa- 
rà eseguita la routine 20000. 


CIFRE SIGNIFICATIVE: 9 
REGISTRI: Ss 
CIFRE PER NUMERO: 20 


A questo punto avrete a disposi- 
zione 5 registri che potranno conte- 
nere numeri interi con non più di 
20 cifre. Se in un momento qualsia- 
si si tentasse di utilizzare un nume- 
ro con più cifre, apparirà il messag- 
gio NUMERO TROPPO GRAN- 
DE e l’esecuzione si fermerà. In 
effetti può capitare di riuscire a la- 
vorare anche con numeri un po’ 
più lunghi, ma questo dipende dal- 
la precisione del vostro personal e 
da quante cifre può avere ogni nu- 
mero grande. 

Vediamo con un paio di esempi 
come saranno rappresentati i nu- 
meri in questi registri loro riserva- 
ti. Consideriamo il numero 
1234567890987654321. Esso verrà 
spezzato, a partire dal fondo, in 
gruppi di 4 cifre (in generale verrà 
spezzato in gruppi di INT(CS/2) ci- 
fre, dove CS sono le cifre significa- 
tive del vostro personal), e memo- 


rizzato come indicato nella figura 
2. 


Il numero —1408177496532 sarà 
invece memorizzato come indicato 
nella figura 3. 


Per memorizzare lo 0 non occor- 
re far altro che azzerare il valore 
del segno. 

Forse questo modo di memoriz- 
zare numeri vi sembrerà piuttosto 
complesso (perché non usare sem- 
plicemente una stringa?), ma vi as- 
sicuro che è efficiente. Quelli tra 
voi che studieranno a fondo le rou- 
tine qui riportate, se ne renderan- 
no ben presto conto. 


16000, 17000 Numeri—registri 
Queste due routine permettono di 
memorizzare un numero in un cer- 
to registro. La 16000 sistema auto- 
maticamente un numero, contenu- 
to sotto forma di stringa nella va- 
riabile alfanumerica C$, nel regi- 
stro C. Supponiamo di voler mette- 
re il numero 1234567890987654321 


ROUTINE SCOPO REGISTRI UTILIZZATI 
8000 Addizione, K-1 
sottrazio- 
ne o molti- 
plicazione 
9000 Elevamento —K-1,...,K-3 
a potenza 
9500 Elevamento — K-1,....K-4 
a potenza 
10000 Divisione K-1,...,K-5 
con resto 


Tavola 1. Registri utilizzati da alcune routine (supponendo che ci siano K 


registri, da 0 a K-1). 


nel registro 0. Non dobbiamo far 
altro che scrivere queste tre istru- 
zioni (precedute naturalmente dai 
loro rispettivi numeri di linea): 


C$=“1234567890987654321” (non 
mettere il segno “+” davanti ai nu- 
meri positivi) 

c=0 

GOSUB 16000 


Per memorizzare —140817749 
6532 nel registro 2 basta scrivere: 


C$=“—1408177496532” 
c=2 
GOSUB 16000 


In questo modo è quindi possibi- 
le usare anche istruzioni DATA 
che contengono numeri grandi sot- 
to forma di stringhe, leggere questi 


SOMMA 


NEGATIVO 
PRIMO 
NUMERO 
POSITIVO 
O NULLO 


NEGATIVO 
PRIMO 
NUMERO 
POSITIVO 
O NULLO 


Tavola 2. Relazione ira somma e differenza di due numeri e somma e 
differenza tra i valori assoluti dei due numeri. 


SECONDO NUMERO 


POSITIVO 
NEGATIVO O NULLO 


SOMMA = 
DIFFERENZA 


SOMMA = 

— (SOMMA VA- 
LORI ASSOLU- 
TI) 


SOMMA = 

— (DIFFERENZA 
VALORI ASSO- 
LUTI) 


VALORI ASSO- 
LUTI 


SOMMA = 
SOMMA VALO- 
RI ASSOLUTI 


SECONDO NUMERO 


DIFFERENZA 
POSITIVO 


DIFFERENZA = 
— (DIFFERENZA 
VALORI ASSO- 
LUTI) 


DIFFERENZA = 
SOMMA VALO- 
RI ASSOLUTI 


DIFFERENZA = 
— (SOMMA VA- 
LORI ASSOLU- 
TI) 


DIFFERENZA = 
DIFFERENZA 
VALORI ASSO- 
LUTI 


numeri mediante istruzioni READ 
e memorizzarli nei registri deside- 
rati. 

La routine 17000 memorizza il 
numero piccolo NT nel registro C. 
Ad esempio, per mettere il numero 
2 nel registro 1, si può scrivere: 


NT=2 
C=1 
GOSUB 17000 


Questa routine è stata scritta 
supponendo che la funzione STR$ 
non metta uno spazio davanti a nu- 
meri positivi o nulli. Se il vostro 
personal mette questo spazio, cam- 
biate le linee 17010-17040 con: 


17010 IF NT>0 THEN SNM(C)=1: 
GOTO 17030 

17020 SN(C)=-1 

17030 A$=STRS(NT) 

17040 A$=MID$(A$,2) 


5000, 6000 Addizione, sottrazio- 
ne Servono per eseguire rispettiva- 
mente l’addizione e la sottrazione 
dei numeri contenuti nei registri A 
e B. Il risultato è messo nel regi- 
stro C. Ad esempio, per effettuare 
la somma di due numeri memoriz- 
zati nei registri 1 e 3 e mettere il 
risultato nel registro 0, basta scri- 
vere: 


=0 
GOSUB 5000 


Se invece volessimo eseguire la 
sottrazione, basterebbe sostituire 
GOSUB 5000 con GOSUB 6000. 

È interessante capire come sono 
strutturate queste due routine, che 
sono intimamente legate fra di lo- 
ro. Non è difficile osservare che la 
somma e la differenza di due nu- 
meri possono essere calcolate in 
base agli schemi riportati nella fa- 
vola 2. Notate che in qualsiasi caso 
bisogna calcolare la somma o la 
differenza dei valori assoluti dei 
due numeri. Poi, se il primo nume- 
ro è negativo, occorre cambiare se- 
gno al risultato. Il calcolo della 
somma e della differenza dei valori 
assoluti è eseguito rispettivamente 
dalle subroutine 5100 e 6100, che 
agiscono essenzialmente nello stes- 
so modo in cui si fanno i calcoli 
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manualmente. Partendo dalle cifre 
meno significative si effettuano i 
calcoli tenendo conto degli even- 
tuali riporti o prestiti. 


Due interessanti 
formule per il massimo 
e il minimo di due 
numeri 


C’è un'istruzione interessante, la 
5210. Serve per trovare il minimo 
tra IA e IB. Il minimo tra due nu- 
meri n, e n, è dato da: 


min(n,,n3) = (n7+n3—|ny-n2|)/2 


dove |n,—n;| indica il valore asso- 
luto della differenza tra n, e n2. 

Una formula analoga per il mas- 
simo tra due numeri è: 


max(n,,n2) = (n7+n+|n;—n2|)/2 


7000 Moltiplicazione Effettua la 
moltiplicazione tra i contenuti dei 
registri A e B. Il risultato viene 
memorizzato nel registro C. Ad 
esempio, se in un certo programma 
si volesse valutare il prodotto di 
due numeri che si trovano nei regi- 
stri 4 e 5, e mettere il risultato nel 
Tegistro 1, basterebbero queste 
quattro istruzioni: 


A=4 
B=5 
C=1 
GOSUB 7000 


Anche questa routine effettua il 
calcolo in modo molto simile al 
procedimento manuale. L’unica 
differenza consiste in questo. Ma- 
nualmente, una moltiplicazione 
consiste di due fasi distinte. Nella 
prima si sviluppa il calcolo molti- 
plicando ogni cifra del secondo nu- 
mero per il primo numero, con re- 
lativo shift a sinistra. Nelle seconda 
si fa la somma di tutte le righe del- 
lo sviluppo, ottenendo il risultato 
finale. 

Nella routine 7000 esiste un uni- 
co processo che effettua contempo- 
raneamente moltiplicazioni e som- 
me parziali. 
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8000 Operazioni con numeri pic- 
coli Permette di effettuare opera- 
zioni tra un numero grande ed uno 
piccolo; il risultato è sempre un nu- 
mero grande. In base al valore di 
SO (selettore di operazione), che 
può essere 1, 2 o 3, esegue rispetti- 
vamente l’addizione, la sottrazione 
o la moltiplicazione tra il contenu- 
to del registro A ed il numero pic- 
colo NP e mette il risultato nel re- 
gistro C. Questa routine non fa al- 


RISULTATO = 


tro che memorizzare il valore di 
NP nel registro K-1 utilizzando la 
routine 7000, e poi chiamare una 
delle routine precedentemente de- 
scritte (5000, 6000 o 7000). 


9000, 9500 Elevamento a potenza 
La routine 9000, per quanto riguar- 
da l’algoritmo usato, è sicuramente 
la più interessante di tutto il packa- 
ge. Essa eleva il contenuto del re- 
gisto A alla potenza ES (ES è una 


ESPONENT 


E=0 ? 
(0) 


N 


CONSIDERA LA CIFRA MENO SIGNIFICATIVA 
DELL'ESPRESSIONE BINARIA DELL'ESPONENTE 


QUESTA CIFRA 


Ei 


CONSIDERA LA PROSSIMA 


CI SONO 
ALTRE CIFRE BINARI® 
DA CONSIDERARE ? 


RISULTATO = RISULTATO * BASE 


BASE = BASE * BASE 


CIFRA BINARIA 


Tavola 3. Diagramma di flusso dell’algoritmo di elevamento a potenza. 


Cifra binaria Cifra binaria 
più signifi meno signifi- 
cativa cativa 


Valore Valori intermedi 
finale del risultato 

del ri- 

sultato 


Figura 4. Schema per l’elevamento a potenza. 


DIVISORE = 0 ? 


DIVI- 
SORE = DIVI. 
DENDO 3 


DIVI- 
SORE > DIVI- 
DENDO 2 


SORE < BAS® DI 
RAPPRESENTAZIO, 


LSECUZIONE DELL'ALGORITMO 
DI DIVISIONE IN MULTIPLA 
PRECISIONE 


£«—__— Espressione binaria di 13 


<—____ Potenze della base 


1 £— Valore iniziale del risultato 


MESSAGGIO 
D'ERRORE 


QUOZIENTE = 1 
RESTO = 0 


QUOZIENTE = 0 
RESTO = 
DIVIDENDO 


ESECUZIONE DEL- 
L'ALGORITMO DI 
DIVISION» IN 
PRECISIONE 
SEMPLICE 


Tavola 4. Struttura della routine di divisione con resto. 


variabile usuale che deve contene- 
re un valore intero non negativo), 
e mette il risultato nel registro C. 

Il metodo più semplice per ese- 
guire un elevamento a potenza 
consiste nel moltiplicare la base 
per se stessa un numero di volte 
uguale all’esponente meno uno. 
Per esempio, per valutare 213, oc- 
correrebbero 12 moltiplicazioni. 
Questo metodo va bene soltanto 
quando l’esponente è piccolo (mi- 
nore di 10). 

Nella routine 9000 è stato invece 
utilizzato un sistema molto più effi- 
cace, detto metodo binario per l’e- 
sponenziazione. Il diagramma di 
flusso dell’algoritmo (vedi tavola 
3), può spiegare meglio di un lungo 
discorso il funzionamento di questa 
routine. Per specificarlo meglio, 
vediamo come opera questo meto- 
do nella valutazione di 2!5. Lo 
schema di figura 4 riassume tutte le 
fasi del calcolo. 

In parole povere si pensa a 2 
come a 2-2%-25, cioè al prodotto 
di potenze della base che hanno 
come esponenti potenze di 2 distin- 
te. 

Per non perdere il valore della 
base, nei calcoli viene utilizzata 
una copia di quest’ultima. 

Notate che questa routine forni- 
sce 1 come valore di 0°, il che non 
ha molto senso, poiché 0° è defini- 
bile soltanto come limite. 

La routine 9500 permette di ele- 
vare il numero piccolo BS alla po- 
tenza ES. Il contenuto di BS viene 
memorizzato nel registro K-4 con 
una chiamata alla routine 17000, e 
poi si esegue l’elevamento a poten- 
za utilizzando la routine 9000. 


1000 Divisione con resto Questa 
routine, che effettua la divisione 
con resto tra i valori assoluti di due 
numeri, è la più complessa di tutto 
il package. Permette di valutare 
quoziente e resto della divisione 
tra i valori assoluti dei numeri con- 
tenuti nei registri A e B. Il quo- 
ziente viene memorizzato nel regi- 
stro C ed il resto nel registro D. 
Nel caso in cui il divisore valga ze- 
ro viene stampato il messaggio 
TENTATIVO DI DIVISIONE 
PER ZERO e l'esecuzione si arre- 


SUGNO PRI= X FRIMI NU- 
ERO € St 
ECCEDO G NU 
NUMERO 2 


SEGNO PRI- id PRIEO 
iiC NUMERO > SE- MERO > SF 
GNO SHCUNDC CONDG NU- 

NUMERO ? MERO 


CONFRONTA I VALO- 
RI ASSOLUTI DreI 
DUE NUMERI 


IL RISULTATO DEL 


SEGNO ù CONFRONTO COINCIDE 
PRIMO NUMr- CON QUELLO FORNITO |-@enuan) 
RO = "" DAL COLFRONTO TRA 
I VALORI ASSOLUTI 


SI 


Ii, RISULTATO DEL 
CONFRONTO s' IL 
CONTRARIO DI QUELLO 
FORNITO DAL CON- 
PRONTO TRA I VA- 
LORI ASSOLUTI 


RETURN 


Tavola 5. Diagramma di flusso. 


sta. Altrimenti vengono individuati seguenti istruzioni: 
alcuni casi particolari in cui si valu- 


tano quoziente e resto molto facil- i 
mente. Nei casi più complessi il C=3 


calcolo è eseguito praticamente 
nello stesso modo in cui si fa ma- 
nualmente e tutti i dettagli possono 
essere trovati nel libro citato alla 
fine dell’articolo. La struttura di 
questa routine è riportata nel dia- 
gramma di flusso della tavola 4. 


GOSUB 10000 


14000 Confronto È la routine che 
permette di confrontare due nume- 
ri grandi contenuti nei registri A e 
B. In uscita si ha: 


Supponiamo di voler valutare la —1 se numero nel registro A 
divisione con resto tra i valori asso- < numero nel registro B 
luti dei numeri contenuti nei regi- CO =} 0 se numero nel registro A 
stri 0 e 1, e di voler mettere quo- = numero nel registro B 
ziente e resto rispettivamente nei 1 se numero nel registro A 
registi 3 e 4. Dovremo scrivere le > numero nel registro B 
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Quindi, per sapere il risultato 
del confronto, dopo l’istruzione 
GOSUB 14000 bisogna controllare 
il valore della variabile CO. 

Questa routine utilizza la su- 
broutine 14100 (richiamata anche 
dalla 6100) per il confronto dei va- 
lori assoluti dei numeri. 

Le tavole 5 e 6 riportano rispetti- 
vamente i diagrammi di flusso delle 
routine 14000 e 14100. 


13000 Visualizzazione Visualizza 
il numero contenuto nel registro C. 
Il numero zero è considerato come 
un caso a parte. Altrimenti, se il 
numero è negativo viene visualiz- 
zato il segno —. Poi, partendo dal- 
le cifre più significative, vengono 
stampati gli elementi della matrice 
NU( , ) che costituiscono il nume- 
ro, aggiungendo, se necessario, de- 
gli zeri. Alla fine viene eseguita l’i- 
struzione PRINT, in modo che la 
successiva stampa inizierà su una 
nuova riga. Per visualizzare il nu- 
mero contenuto nel registro 2, oc- 
corre scrivere: 


c=2 
GOSUB 13000 


Anche per questa routine si sup- 
pone che la funzione STR$ non 
ponga uno spazio davanti a numeri 
positivi o nulli. Se il vostro perso- 
nal lo mette, aggiungete la seguen- 
te linea: 


13045 A$=MID$(A$,2) 


15000 Copia Copia il contenuto 
del registro A nel registro C. Ecco 
le tre istruzioni necessarie per co- 
piare il contenuto del registro 2 nel 
registro 1: 


A=2 
C=l 
GOSUB 15000 


18000 Azzera Azzera completa- 
mente il registro C. Viene richia- 
mata dalla routine 7000. 


Un’applicazione: la valutazione di 
polinomi 


Come esempio concreto di utiliz- 
zazione di questo package, ho scel- 


GH: 
PRIKO NUM 

GHEZZA SECUN- 

Di NUMEKO 2 


LUNGHEZZA 
PRIMO NUMERO > LUN 
GH£ZZA SECONDO 
NUMERO ? 


VAL. ASS. PRIMO 


NUMERO > VAL. 
SECONDO 


CONSID®RA Li CIFRS PIU! SIGNIFI- 
CATIVE D£I DU: NUMSRI (nella ba- 


se di rappresentazione) 


CIFRA 
NUMERO < CI+ 
SECONDO NU- 
MERO ? 


CIFRA 
PRIMO NUNSRO > CI- 
FRÀ S5CONDO NU 
MERO ? 


ALTR® 
CIFRE DA CONSID 
RARE ? 


SI 


PIU! SIG.IFICATIVO DEI LU® 
NUM®RI (nella base di rap- 
presentazione) 


CONSIDwRA Lg PROSSINS CIFito 


VAL. ASS. PRIWO 
NUMERO € VAL. 
ASS. SECONDO 


ne il valore di X. 

Se l’istruzione STR$ del vostro 
personal mette uno spazio davanti 
ai numeri positivi o nulli, cambiate 
la linea 130 con 


130 I$=MID$(STR$(1),2) 


La chiamata alla subroutine 600 
(riga 190) causa la visualizzazione 
del polinomio. Questa routine è 
stata scritta appositamente per Ap- 
ple II. Chi non possedesse un Ap- 
ple II la può ignorare e cambiare la 
linea 190 con 


190 PRINT: PRINT“VALORE 
DEL POLINOMIO IN “;X;” ="; 


NUMSRO 


VAL. ASS. PRIMO 
NUNSRO > VAL. 
A55. SWCONUU 
NUME 


VAL. ASS. 
UGUALI 


Tavola 6. Diagramma di flusso della subroutine di confronto tra valori 


assoluti. 


to il problema della valutazione di 
un polinomio. Si tratta di calcolare 
il valore assunto da un polinomio 
della forma 


P(X)=a,X"+@n 14... 
+a;X+a9 4,40 


per un certo valore della variabile 
bd 

Conviene riscrivere il polinomio 
nel seguente modo 


P(X)=(...(GnX+an-1)X+@n-2)X+ 
+...) X+00 


ed effettuare il calcolo mediante un 
ciclo che esegue ogni volta la mol- 
tiplicazione per X e la somma di un 
nuovo coefficiente a partire dalla 
parentesi più interna. 

Sia i coefficienti a; che X devono 
essere numeri piccoli. 


Analizziamo il programma. 

La linea 20 dimensiona il vettore 
dei coefficienti. 

Le linee 40-70 servono per la 
preparazione di 4 registri con una 
capacità di 40 cifre l’uno. Se il vo- 
stro personal ha un numero di cifre 
significative diverso da 9 cambiate 
la linea 


40 CS=9 


con una appropriata. Avrete nota- 
to che c'è GOSUB 20030, anziché 
GOSUB 20000. Questo serve per 
evitare le istruzioni di input della 
routine di inizializzazione. Poi (li- 
nee 80-180) vi vengono richiesti al- 
cuni dati: il grado del polinomio, 
cioè l’esponente della massima po- 
tenza di X, che deve essere < 20, i 
coefficienti del polinomio, ed infi- 


Con questo 
programma potete 
calcolare il valore di 
un polinomio intero in 
un punto 


Naturalmente in questo caso 
l’output sarà molto meno elegante. 
La subroutine 600 è piuttosto inte- 
ressante. Essa effettua la stampa 
del polinomio, su più righe se ne- 
cessario, in una forma matematica- 
mente corretta. Le tre parti princi- 
pali della routine sono quelle che 
fissano, per ogni termine del poli- 
nomio, il segno del coefficiente, le 
cifre del coefficiente e l'esponente 
di X. Per quanto riguarda l’espo- 
nente, esso non verrà stampato per 
gli ultimi due termini, if quanto 
l’ultimo termine non contiene nem- 
meno la variabile e nel penultimo 
l'esponente sarebbe 1 e allora si 
tralascia. 

Il segno viene sempre scritto, 
tranne nel caso del primo termine 
con coefficiente positivo. 

Le cifre dei coefficienti vengono 
sempre scritte quando i coefficienti 
non valgono 1 o —1. In questi ulti- 
mi due casi viene scritto 1 soltanto 
se stiamo trattando l’ultimo termi- 
ne, che non moltiplica X. 

La valutazione vera e propria del 
polinomio inizia alla linea 200. 

Se il grado del polinomio è zero 
si passa direttamente alla visualiz- 


zazione. Altrimenti (linee 250-300) 
il valore di X e quello del coeffi- 
ciente a, sono memorizzati rispetti- 
vamente nei registri 0 e 3. 

A questo punto viene eseguito il 
ciclo compreso tra le linee 310 e 
430, che sarà percorso un numero 
di volte uguale al grado del polino- 
mio. Ad ogni passaggio, il risultato 
parziale viene moltiplicato per X e 
a questo è sommato un nuovo 
coefficiente. 

La visualizzazione del risultato è 
effettuata chiamando la routine 
13000 (linea 440). 

Poi apparirà un piccolo menù 
con tre possibilità: 


1- Valutare lo stesso polinomio 
per un altro valore di X. 

2- Cambiare polinomio. 

3- Uscire dal programma. 


La stampa dell’esempio di esecu- 
zione riportato nella tavola 7 è sta- 
ta ottenuta utilizzando una routine 
di utilità in linguaggio macchina 
che effettua la stampa di tutto 
quello che appare sul video. 
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Variabili utilizzate e loro uso 


VARIABILE/I DESCRIZIONE 

NU (,) Matrice contenente le cifre dei numeri grandi. 

SN() Vettore dei segni dei numeri. 

PEGI Vettore dei puntatori alla fine dei numeri. 

Cs Cifre significative del vostro personal. 

K Numero di registri con cui si lavora. 

N La prima volta, massimo numero di cifre di un numero grande; poi, indi- 
ce dell'ultima colonna della matrice NU (,). 

CF TO massimo di cifre contenute in ogni elemento della matrice NU 

BB Base di rappresentazione dei numeri grandi (10°f). 

A, B, C,D Indicatori di registri. 

Fio) Selettore di operazione. 

NP Numero piccolo con cui eseguire un'operazione con un numero grande. 

ES Esponente per le routine di elevamento a potenza. 

BS Base nella routine di elevamento a potenza 9500. 

co Risultato del confronto tra due numeri grandi. 

NT Numero piccolo da memorizzare in un registro. 

C$ Stringa numerica da memorizzare in un registro. 


I, IA, IB, IC, ID_ Indici di ciclo. 


A$, CB, CE, CT, Variabili di lavoro. 
D1, DB, DS, LU, 


AA 


A1, A2, A3, 
B1, B2, B3, 
C1, C2, C3 


Copie dei valori di A, B, C. 


Nota: | valori delle variabili A, B, C, D, SO, NP, ES, BS, CO, NT, C$ vengono mantenuti 
inalterati da ogni routine. 


Tavola 7. 


GRADO DEL FOLINOMIO = 15 
COEFFICIENTI DEL POLINOMIO 


RE Achei 


P(4)=17424982765 


fl = ALTRO VALORE DI X 
2 - NUOVO! POLINOMIO 


3 - FINE 


Quadro riassuntivo delle routine 


ROUTINE SCOPO DESCRIZIONE 
5000 Addizione Esegue l’addizione tra i contenuti dei registri A e B, e mette il risultato nel registro C. 
6000 Sottrazione Esegue la sottrazione tra i contenuti dei registri A e B, e mette il risultato nel registro C. 
7000 Moltiplicazione Esegue la moltiplicazione tra i contenuti dei registri A e B, e mette il risultato nel registro 
c. 
8000 Addizione, Sottrazione o Esegue, in base al valore di SO (1, 2 o 3), l'addizione, la sottrazione o la moltiplicazione 
Moltiplicazione tra il contenuto del registro A ed il numero piccolo NP. Mette il risultato nel registro C. 
9000 Elevamento a potenza Eleva il contenuto del registro A alla potenza ES (numero piccolo), e mette il risultato nel 
registro C. 
9500 Elevamento a potenza Eleva il numero piccolo BS alla potenza ES (numero piccolo) e mette il risultato nel 
registro C. 
10000 Divisioni con resto Valuta la divisione tra i contenuti dei registri A e B. Quoziente nel registro C e resto nel 
registro D. 
13000 Visualizzazione Visualizza il contenuto del registro C. 
14000 Confronto Confronta i contenuti dei registri A e B. In uscita si ha CO = —-1, CO = 0oppureC0=1a 
seconda che il contenuto del registro A sia minore, uguale o maggiore di quello del 
registro B. 
15000 Copia Copia il contenuto del registro A nel registro C. 
16000 Stringa in un registro Memorizza la stringa numerica C$ nel registro C. 
17000 Numero piccolo in un re- Memorizza il numero piccolo NT nel registro C. 
gistro 
18000 Azzera un registro Azzera il registro C. 
20000 Inizializzazione Dimensiona la matrice NU (,) edi vettori SN( ) e PF( ) in base alle esigenze dell’utilizza- 


tore. Fissa inoltre la base di rappresentazione. 


Nota: Non è ammessa nessuna coincidenza tra i valori di A, B, e C al momento della chiamata alle routine 5000, 6000, 7000 e 8000, tra 
quelli di A, B, C e D per quanto riguarda la routine 10000, e tra quelli di A e C per la routine 9000. 


Listato 1. Interi in precisione multipla. 500 IF CB=0 THEN FF(C)=I- 
IF ) THEN FETMT "MUMEF RUFFO GRANDE": 
4999 REM ADDIZIONE STOF 
IF SNCA) THEN S08&0 cata NU:‘C.1)=1 
A =) PFIOI=1 
A=E C TURN 
BOSUB 15000 S REM SOTTRAZIONE 
ASAL TIF_SMAY O THEN 407 
RETURN AISA 
IF SNCB) O THEN 5090 ASH 
GOSUB 15000 0 GOSUE 15000 
5080 SN(C)=-SN(0) 
5090 65050 ASAI 
Sic Z 5060 RETURN 
5110 D 60700 IF SN) 6 THEN 6100 
5120 5080 GOSUR 1500 
SIZO SNC) =-SN(C) 65090, 
5140 RETURN 6100 
5199 REM ADDIZIONE VALORI ASSOLTI 6105 
5200 SN(C)=1 6110 
S210  LU=(PF(A)+FF (B) <ABS(PF(A)-FFRY I) 65120 
S220  GOSUB 5300 6130 
IF PF(A)=PF(B) THEN 5 0 5140 
IF FF‘(A)SPF(R) THEN Z Gi 4150 
Z=B FEM SOTTRAZIONE VALOFI 
GOSUR 5400 00 GOSUB 14100 
GOSUB SS00 b IF COC *O THEN 6240 
RETURN o SNC) =0 
CE M 
FOR I=9 TO LU 
NU (C,I)=NUCA, I) +NU(C(R, 1) +CE 
IF NUCC,I) B THEN CB=0: GOT0 S35hn 
NU (C, I) =M4(C,1) BR 


NU(C, 1)= 


IF NUCC E CE GOTO S45N 
NU (©, I) =NUCC, I) -BE RETURN 
cE=1 6 ter=t 
5450 NEXT I 3OSUB 6500 
5460. RETURN 647 DIF PFIMS=PP AL THEN nn 


(segue) 


dà 
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Listato 1. Interi in precisione multipla (segue). 


6430. GOSUB S600 

6440 GOSUB 6700 

65450. RETURN 

6500. CE=O 

6510 FOUR I=0 TO PF(E) 

6520 NU(C,1)=NUC(A,I)-NU(B,1)-CR 
IF MUCC.I) GO0T0 6560 
NU (CC, I) =NU(C, 1) +BB 
cCB= 
MEXT 1 
RETURN 
FOR I=sFF‘B)+1 TO PFCA) 


GOTO 6650 


6650 

65560 

6700. FORI TO O STEP-1 
IFOMUCC. 1) 00 THEM &7z0 
NEXT 
FFECOI=I 
RETURN 


"EM MOLTIPLICAZIONE 


SN Gf 0 AND SN(B)<SO THEN 70%1 
SMeM=n 
UPN 
(ERE SINNTA] 
OE A Ei 
EOR ]B=N TO PFeR) 
INSIAHIE 
TF_ICSN THEN PRINT"NUMEFO TROPPO GRONDE": 
STOP 
7080 MUC IC) MUCO, II) +NU (A, IN) KMNULB, TE) 
7090 M TIR 
7100 ISIA TO IC 
7110 IF MU‘C,I) EB THEM 
IF_I=N-1 THEN PRINT“MUMERO TEOPEO GRANDE": 
STOP 


Z=IMT (NUCCI) /BR) 
NU(C, I)=NU(C,1)-7+BE 
NU CC, I+1)=NU(C, I+1)+Z 


NEXT I 

NEXT IA 

IF T=N THEN FF(C)=IM: GOTO 77 

IF MUCC,I)=0 THEN PF(C)=IMi: GOTO 7) 
FF (C)=I 


SNA) XSN CE) 


7998 
7999 
8000 


REM ADD. SOTTR. O MOLT. 
FEM TRA GRANDE E FICCOLO 


8040 
2050 


8060 


OSUR 17000 
2=R 


UN SO GOSUR 5000,6000,7 
B=R2 


2990 
8100 
110 
9998 REM ELEVAMENTO 4 POTENZA 
8999. RI INCOLO 
5000 

010 
SOP0 NUCC,0Y=1 

9030 IF ES=0) THEN RETURN 
9040 
9080 
9060 
sa70 


nen S00N 
190 CE 
9100 CE INT(CE/2)*Z 
110 IF G THEN 9190 
nec 
Deb 


9290 
9300 
9310 
9320 
9498 
9499 
9500 
9510 
9520 
9530 
9540 
9550 
9560 
9570 
9580 
9590 
9998 
3999 
10000 


10010 


10050 
10060 
10070 


10080 
10090 
10100 
10110 
10120 
10130 
10140 
10150 
10160 
10170 
10180 
10190 


10210 


10220 


1c 
10240 
10250 
10260 


10270 
10280 


10400 
10410 
10420 
10430 


GOSUE 15000 
A=K=3 

E 
esci 

GOSUB 7000 
CE=(CE-CE) /2 
3 THEN 


9251) 


C=K-2 
GOSUR 
C=kK-1 
GOSUE 


15000 


15000 


GOSUE 


7006 
GOTO F100 
ASAL 


RETURN 
REM ELEVAMENTO A FOTENZA 
REM BASE=FICCOLO ESF.=F1CCOLM 


GOSUB 170600 
AZZA 


4 


ab 
GOSUB 9000 
A=A2 
RETURN 
REM DIVISIONE CON RESTO 
REM ASSOLUTI DI MUMERI Gi 
IF SN(6B)=0 THEN FFINI 
"TENTATIVO DI DIVISIONE FEF ZERO": 
GOSUB 14100 
IF _CO<>0 THEN 
SN(C)=1 


sTOF 


10081 


SN(D)=0O 
RETURN 
IF CO=1 THEN 


10160 


SN(C) 
C1=C 
Cc=D 
GOSUB 15000 
SN(D) =ABS(SN(D)) 
Celi 

RETURN 
SN(C)=1 
SN(D)=1i 

IF PF(B)<>0 
FF(D)=< 
NU(D.O 
FOR I=PF(A) TO O STEP-1 
=MU(D, 0) XEB+NU(A,I) 
=INT(CB/NU(B,0)) 

NU (D, 0) =CB-NU(C,I)*NU(B,0) 
NEXT I 


=0 


THEN 


pozon 


IF NU(C.PF (A) )=0 THEN FFiC)ISFF (MM -1r 


RETURN 

FF (C)=PF (A) 
RETURN 

AZSA 


A 
NT CER (MU CR, FF CR) SAT) 


zu4om 


s 
GOSUB 8000 
IF PF(K-3) 
NU (K-3,PF E 
ASBI 
C=k-2 
GOSUE 
PF (K-4)= 


PELO) 
2))=0 


VHEN FF ck+-3) 


(BI +1 


(segue) 


Listato 1. Interi in precisione multipla (segue). 


10440 
10450 


FOR ID=PFik-33 TO FPF(E-zv+i STEP-I 

IF NU(K-3, ID) =MU(K-2,FF.(F-2)) THEN DE=BB-1: 
GOTO 10470 

DE=INT ( (NU (K-3, ID) XBE+MNLI (E 
PF{K-2))) 

DS= (NU (K-3, ID) XBE+NU (K-3,ID-1)-DB*NU(Ck 
PF (E-2)))XBB+NU(K-3,ID-2) 

IF NU(K-2,FF (K-2)-1)*DE>DS THEN DE=DB-1: 
GOTO 10479 

SN (K-4 
FOR I=ID TO ID-PF(K-2)-1 
IF NUCE-3.I) O THEN SMC 


10460. 


« ID-1)) /MUCK 


10470 


10480 


10510 
10520 


NU(K-4,PF (K-2)+1-ID+I)=NU(F-®. 11 
NEXT I 
NF=DE 


10540 
10550 
10560 
10570 
10580 


2000 


10 


le] 


10600 


10610 
10640 
10650 
108 
10670 
10680 
10690 
1C ma 
10710 
10720 


GOSUB 6000 
IFPFIMSPFLA) 
FOR ISFF IC) +1 


THEN 10681 


-1 THEN 


10770 


FOR 
NU (©, 1) =BB-MU€C, I) LU 
LU=1 


T=09 TO FF) 


(A) STUFI 
CATSESTITO 


IL-PF LA) )=DE 
) THEN 10910 
ID-PF (A) \=DE-1 


10820 


FOR I=ID-FF (A) TO ID-1 
)=NU (K-2, I-ID+FF (A) } +11 
1) BR THEN LU=O: 60101) 
IU ck-3, I) <BR 


10890 


10860 
10870 
10880 
10890 
10 


NEXT I 
NU (K-3, I) =NU(K-3, I) +1.U-BB 


NEXT ID 


PF (C3)=FF (K-3) FF (F-2)-1 
10930 IF NU(C3,FF<C THEN FF(C3) =FF (05) 1 
10940 LU=0 
10950 FOR I=FF(kK-2) TEP=3 
10960 CE=LUXBB+NL! (E 
10970 NU(D,I)=INT(CE/DI) 
10980 LU=CE-NU(D,I)*D1 
NEXT I 
SN(D)=i 
FF (D)=FF (K-2) 
FOR I=PF(D) TO 0 STEF-4I 
IF NU(D,I)<>0 THEN FF{D)S=1: GOTO 1106! 
11040 NEXT I 
110 SN(D)=0 
11070 
11080 
11090 
11100 RETURN 
12999 REM VISUALIZZAZIONE 
13000 IF SN(C)=0 THEN FRINT"O": FETUEN 


IF SN(0)= 
230 

FOR I=FF(C) TO O STEP-1 
AS=STRE (NU(C,I)) 

© Z=0 THEN i13l10 
LU=LEN(4$) 

IF LU=CF THEN 


THEN FRINT"-": 


13070 1311O 


13100 
13110 


14010 
14020 
14030 
14040 
14099 
14100 
14110 
14120 
14130 
14140 
14150 
14160 
14170 
14999 
15000 


16010 
16020 


165030 
16040 
16050 
16060 


16070 
16080 
15090 
16100 
16110 
16120 
16130 
16140 
16150 
16999 
17000 
17010 


17060 
17070 


17080 
17090 
17100 
17999 
18000 


FOR IC=1 TO CF-LU 
AS="O0"+A% 

NEXT IC 

PRINT A$; 

2=1 

NEXT I 
PRINT"" 

RETURN 

REM CONFRONTO 
IF_SNCA)<SNCR) 
IF SNA) CB) 
GOSUR 141 
IF SNIA)= 
RETURN 
REM CONFRONTO VALORI 
IF PF(A)“PF(B) THEN Ci 
IF PFC(A)SFF (8) THEN CO 
FOR I=FF (A) TO O STEF- 
IF _NUCA,I) CNUfE, I) THEN LO 
IF_NUCA, I) sNU CB, Tè THEN CO 
NEXT I 

co=o 

RETURN 

REM COFIA DI 
SN(C)=SN(A) 
PF(C)=FF (A) 
FOR I TO PFA) 

NU (CC, I) =NUCA, 1) 

NEXT I 

RETURN 

REM STRINGA MUMEFIA {= 
IF C% * THEN (Cia 
A$=C$ 

IF LEFT CAS, 1) Dda 
GOTO 160 
SN(C)=- 
A$=MID$ (A$,0) 
LU=LEN(A$) 
IF LU>NXYCF 
STOF 


THEN Lit 
THEN {i 


RE TURD 
ETUISN 


i) 
1 THEN CO=-C0 


ILIUTI 
FETURN 
ETUER 


BE THIS 
BE put! 


UNO MUMERO 


- REGIS 
RE TURI 


1019 


THEN Ud 


SH 


THEN PETRT "MUIMERO 


PF C(CYSINTE(LU=1) 4 
FOR I=FF(0) TO 0 STEP-I 
IF LU THEN 16120 
NU(CC,FF (2) - TY SVALLAG) 
RETURN 
NU (CC,PF (0) TI) VAL (FIGHI 118 
ETE (N, LU=CF) 
EN GA) 
NEXT I 
REM NUMERO FICCOLO-- GISTRO 
IF MT SN(0)=0: FE TUI 


FOR 
LU=LEN 
IF LU 
RETURN 

NU CC, I) VAL ERIBHTE (N88, 04). 
AS=LEFTS (As LU-CF) 

NEXT I 

REM AZZER UN MUMERO 
SN(C)=0 

FF(C)=0 

FOR ISO TO Mi 

NU(C,IV=9 

NEXT I 

RETURN 

REM INIZIALIZZAZIONE 
INFUT"CIFRE SIGNIFICATIVE 
INPUT "REGISTRI 

INPUT "CIFRE FER NUMERO : 
CF=INT(C8S/2) 
BB=INT(105CF+0O,. 5) 
N=:IMT((N-1) /CF) +1 
DIM NUCE=1,N) SN(E-1 
RE TUF 


THEN MUCC, 1) SVAL ASI: PE (CI * 


)JPF(=1) 


TROPPO GRANDE": 


Listato 2. Valutazione di polinomi. IF L$<>"1" AND L$<>"2" AND L&<> THEN 490 


10 REM VALUTAZIONE DI FOLINOMI BONE 

20. DIM ACZ0) Pa te) 

E SO ON L GDTO 180,80,540 
zo HOMI 

40 CS=9 ESO 

RE, REM STAMPA POLINOMIO 
60 HOME 

DO VTAB(3) 

55 LIRE PRINT"P.(X) 
SMS PS=5: RSS3 


Ri NN=0 
100 FRINT"CDEFFICIENTI DEL FOLINOMIO" e w 
110 PRINT FOR L=6G TO O STEP-1 


= Bs="i: po" 
120. FOR I=G TO 0 STEP-1 E 
130 I$%=STR$ (I) desio THEN 940 
140. PRINT"A(":1%;") = o"; 


LN=0 
150 INPUT"":A(I) N È: 
160 NEXT I IF A(L)<O THEN B$=B$+"-": LN=1: GOTO 7 


170 PRINT IF L=G THEN 720 


180 INPUT"VALORE DI X = "sx 

190 GOSUB 500 

200 IF G>0 THEN 250 
210 NT=A (0) 

22 c=o 

230 GOSUB 17000 


240 GOTO 440 Si 
250 NT=X IF L=0 THEN 820 


260 =3 Fassi 
ee Rn 000 IF L=i THEN 820 
© ENSLNCLEN (ES) 
=LN+ 
SO POS OZZOnSE o STEP-1 IF PS+LN<39 THEN 880 ' 
220 A; î IF A(L)<O THEN PRINT" GOTD 250 
33 PRINT"+" 
3a 5 PRINT: PRINT 
Sa o RS=RS+3 
350 GOSUE 7000 ROsnBs a. 
360 NT=A(L) BEN 
370 Cc=2 
380. GOSUB 17000 
390 Asi 
400 B: 
410  C=0 
420. GOSUB 5000 


IF ABS(A(L))<>1 THEN Z$=STR$ (ABS(A(L)))r 
B$=B$+7%: LN=LN+LEN(Z$): GOTO 760 

IF L<>O THEN 760 

B$=B$+"1" 

LN=LN+1 


PRINT B$; 
VTAB(RS-1) 
PRINT E$; 
VTAB (6) 
VTAB (RS) 
430 NEXT L PS=PS+LN 


a NEXT L 
440 60 3000 s 
450 O IF NN=0 THEN PRINT"O": 
460 PRINT"1 - ALTRO VALORE DI x": PRINI E] FRINT 
470. PRINT"2 - NUOVO POLINOMIU": PRIMI TerIRe 0. lol, 
480 PRINT"3 — FINE": PRINT ERINIIPCAZEAOnEI 
490 GET L& 
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RACCOLTA DI ROUTINE BASIC 


3 


Il controllo del codice fiscale 


Mauro Boscarol 


La routine Basic di questo mese controlla l’esattez- 


za di un codice fiscale. 


Secondo la legislazione italiana, il codice fiscale è 
composto di 16 caratteri alfanumerici. I primi sei ca- 
ratteri sono alfabetici e codificano il cognome e no- 
me. I prossimi cinque caratteri codificano la data di 
nascita e il sesso: i primi due sono numerici, e indica- 
no le ultime due cifre dell’anno, il terzo è alfabetico e 
indica il mese secondo la corrispondenza riportata in 
tabella 1, e gli ultimi due sono numerici e indicano il 
giorno per i soggetti maschili, oppure il giorno + 40 


per i soggetti femminili. 


Seguono poi un carattere alfabetico e tre caratteri 
numerici che codificano il luogo di nascita. Infine, il 


sedicesimo è un carattere alfabetico di controllo. 


cognome e nome data di nascita luogo di 
€ sesso nascita 


(A = alfabetico, N = numerico) 


Per esempio, il mio codice fiscale è 
BSCMRA47B10A9520 


Ù 


controllo 


I primi sei caratteri codificano il mio cognome e 
nome. Gli altri cinque la mia data di nascita e il ses- 
so. I prossimi quattro il luogo di nascita (Bolzano), e 
l’ultimo è il carattere di controllo: una O maiuscola, 


non uno Zero. 


gennaio A luglio L 
febbraio B agosto M 
marzo E settembre P 
aprile D ottobre R 
maggio E novembre Ss 
giugno H dicembre T 


Tabella 1. La codifica del mese di nascita 


I controlli da effettuare 


Quando si è in possesso di un codice fiscale, per 
controllare se è stato trascritto correttamente, si pos- 


sono effettuare i seguenti controlli: 

(a) il codice deve essere lungo 16 caratteri 

(b) i primi sei devono essere alfabetici (A-Z) 

(c) i caratteri di posto 7 e 8 devono essere nume- 
rici (00-99) 

(d) il carattere di posto 9 deve essere alfabetico 
(vedi tabella 1) 

(e) i caratteri di posto 10 e 11 devono essere nu- 
merici (01-31 0 41-71) 

(f) il carattere di posto 12 deve essere alfabetico 

(g) i caratteri di posto 13, 14 e 15 devono essere 
numerici 

(h) il carattere di controllo deve essere alfabetico 
ed inoltre... 


Il sedicesimo carattere 


L’articolo 7 della legge sul codice fiscale (Gazzetta 
Ufficiale n. 345 del 29 dicembre 1976) specifica che il 
sedicesimo carattere del codice ha funzione di con- 
trollo della esatta trascrizione dei primi quindici ca- 
ratteri. 


A 00 1 N 20 
B ol 0 (0) 11 
C 02 5 P 3 
D 03 7 Q 6 
E 04 9 R 8 
F 05 13 s 12 
G 06 15 JE 14 
H :0:7 17 U 16 
I 08 19 V 10 
T ‘09 21 W 22 
K 2 >. 25 
L 4 RG 24 
M 18 Z 23 


Tabella 2. Conversioni per i caratteri di posto dispari 


0000090000 
VO UNDUNWNHEO 
Se idUDLWNEO 


11 
12 


zraclirTOTnMvIOw> 
N<éxX£<C4HNAOVOZ 
© 


Tabella 3. Conversioni per i caratteri di posto pari 


RACCOLTA DI ROUTINE BASIC 


Esso viene determinato (a partire dai primi quindi- 
ci) con il seguente algoritmo: 


1 Ad ognuno degli otto caratteri di posto dispari 
assegnare un valore secondo la tabella 2 

2 Ad ognuno dei sette caratteri di posto pari asse- 
gnare un valore secondo la tabella 3 

3 Sommare i 15 valori così ottenuti e dividere (con 
resto) il risultato per 26 

4 Convertire il resto ottenuto nel carattere alfabe- 
tico ad esso corrispondente secondo la tabella 4. 
Questo carattere è il carattere di controllo. 


Per esempio, controllo il mio codice fiscale. Inizio 
con il convertire i caratteri di posto dispari usando la 
tabella 2 


s[s[e]w]a]a «|? s|i o|aA 


0 Ss 8 9 0 1 21 5 


Poi converto quelli di posto pari mediante la tabel- 
la 3 


01805 128009 70 1 100 21 5 5 
(0) A 13 N 
1 B 14 (0) 
2 Cc 15 P 
9 D 16 Q 
4 E 17 R 
5 F 18 S 
6 G 19 T 
pi H 20 U 
8 I 21 Vv 
9 J 22 W 

10 K 23 x 
11 L 24 Y 
12 M 25 zZ 


Tabella 4. Conversione del resto nel carattere di con- 
trollo 


Sommo tutti i valori ottenuti e ho 92, che diviso 
per 26 dà 3 con resto 14: il carattere di controllo che 
ricavo dalla tabella 4 è quindi O. 


Il programma 


Nelle righe 20-90 vengono definiti mediante DA- 
TA il vettore C(16) che contiene 0 se il corrisponden- 
te carattere deve essere alfabetico e 1 se deve essere 
numerico e il vettore D(26) che corrisponde alla ta- 
bella 2. 

Nelle righe 100-130 c'è un esempio di chiamata 
della routine, che inizia alla riga 10000 (nelle righe 
9940-9990 vi sono le condizioni di ingresso e uscita). 


10 


20 


ZO 


40 FOR I=1 TO 16 
so READ DI) 

50 MEXT I 

70 FOR Isl TO 26 

0 READ DCI) 

90 NEXT I 

100. INFUT A 

110. GOSUE 10000 

120. IF Z=1 THEN FFINT ATO": STOF 


130 PRINT"GIUSTO": STOP 

9940 REM 

9950 REM CONTROLLO DEL CODICE FISCALE 

3960 REM 

9970. REM VARIABILE IN INPUT: 
A$ (CODICE FISCALE) 

9980. REM VARIABILE IM DUTPUT: 
Z{O=CORRETTO, 1=ERRATO) 

9990 REM 

z=1 

IF LENCAS)< 

I=i 

B$=MID$ (A#,1,1) 

IF B$<"A" OR B$>"Z" GOTO 10070 

IF C(I)«>O THEN RETURN 

GOTO 10110 

10070 IF B$<"O" OR B$>"9" THEN RETURN 

10080 IF C{I)<>1 THEN RETURN 

10090 I=I+1 

10100 IF I<=16 GOTO 10030 

10110 REM 

10120 REM CARATTERE DI CONTROLLO 

10130 REM 

10140 S=0 

10150 FOR I=1 TO 15 STEP 2 

10160 B$=MID#$(A#,I,1) 

10170 IF C(I)=0 GOTO 10 

10180 5=S+D (VAL (B$)+1) 

10190 GOTO 10210 

10200 S=5+D(ASC(B$)-654) 

10210 IF I=15 GOTO 10270 

10220 B$=MID$(A%,I+1,1) 

10230 IF C(I+1)=0 GO0TO0 10260 

10240 S=S5+VAL (B$) 

10250 GOTO 10270 

10260 S=S+ASC(B$)-65 

10270 NEXT I 

10280 R=S-INT(S/26) 26 

10290 IF MID$(A$,16,1)<CHR$ (F+65) THEN 
RETURN 

103 z=0 

10310 RETURN 


16 THEN RETURN 
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ALESSANDRIA Via Savonarola, 
ANCONA Via De Gasperi, 40 
AREZZO Vi F. Lippi, 13 

BARI Via Devitofrancesco, 4/2A 
BARI Via Capruzzi, 192 
BARLETTA Via Vitrani, 58 
BASSANO DEL GRAPPA 
Via Jacopo Da Ponte, 51 
BERGAMO Via S. F. D'Assisi, 5 
BIELLA Via Italia, S0A 
BOLOGNA Via Brugnoli, 1 
CAGLIARI Via Zagabria, 47 


13 


CAMPOBASSO Via Mons. Il Bologna, 10 
CESANO MADERNO Vic Ferrini, 6 
CINISELLO BALSAMO vie Matteotti, 66 


COMO Via L. Sacco, 3 
COSENZA Via Dei Mille, 86 


Desidero ricevere una copia omagg 


CUNEO C.so Nizza, 16 

FAVRIA CANAVESE c.so G. Matteotti, 13 
FIRENZE Via G. Milanesi, 28/30 
FOGGIA Via Marchianò, 1 

FORLÌ P.zza Melozzo Degli Ambrogi, 1 
GALLARATE Via A. Da Brescia, 2 
GENOVA Via Domenico Fiasella, 5I/R 
GENOVA-SESTRI Via Chiaravagna, 10/R 
IMPERIA Via Delbecchi, 32 

L'AQUILA strada 85 N. 2 

LECCO Via L. Da Vinci, 7 

LIVORNO Via San Simone, 31 

LUCCA Via S. Concordio, 160 
MACERATA Via Spalato, 126 
MERANO Via S. Maria del Conforto, 22 
MESSINA via Del Vespro, 71 

MILANO Via G. Cantoni, 7 


io del 


MILANO Via E. Petrella, 6 
MILANO Via Altaguardia, 2 
MILANO Pza Firenze, 4 
MILANO vile Corsica, ì4 
MILANO vile Certosa, 9 
MILANO Via Jacopo Palma, 9 
MONZA Via Azzone Visconti, 39 
MORBEGNO Via Faboni, 31 
NAPOLI Via Luigia Sanfelice, 7/A 
NAPOLI C.so Vittorio Emanuele, 54 
NOVARA Baluardo Q. Sella, 32 
PADOVA Via Fistombo, 8 
PALERMO Via libertà, 191 


PARMA Via Imbriani, 41 


NUOVISSIMO CATALOGO ILLUSTRATO REBIT 


di ben 32 pagine: la più ampia e completa rassegna di computer, periferiche e 


accessori. Allego L. 2.000 per contributo spese di spedizione 


Nome 


Cognome 


Via 


Città 


C.A.P. 


Data 


SPEDIRE A: REBIT CO 


CASELLA POSTALE 10488 - 20100 MILANO 


MPUTER 


Firma 
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PAVIA Via C. Battisti, 4/A 
PERUGIA Via R. D'Andreotto, 49/55 
PESCARA Via Tiburtina, 264 bis 


Il computer più 


venduto nel mondo 


lo trovi anche nel tuo “bit shop primavera” 


PESCARA Via Trieste, 73 
PIACENZA Via IV Novembre, 60 
PISA Via XXIV Maggio, 101 
PISTOIA v.le Adua, 350 
POTENZA Via G. Mazzini, 72 
POZZUOLI Via G.8. Pergolesi, 13 
RIMINI Via Bertola, 75 

ROMA L.go Belloni, 4 (Vigna Stelluti 
ROMA Pezza San Donà Di Piave, 14 
ROMA Vie IV Venti, 152 

ROMA Via Cerreto Da Spoleto, 23 
SAVONA Via G. Scarpa, 138 
SONDRIO Via N. Sauro, 28 
TERAMO Via Martiri Pennesi, 14 
ERNI Via Beccaria, 20 

TORINO C.s0 Grosseto, 209 
ORINO Via Chivasso, ll 


TRENTO Vio Sighele, 7/ 
REVIGLIO via G. Mazzini, 10/8 


UDINE Via Tavagnacco, 89/9 
VARESE Vio Carrobbio, 13 
VERONA Via Pontiere, 2 
VIAREGGIO via A_ Volta, 79 
VOGHERA Pzz0 G. Carducci, Il 


RACCOLTA DI ROUTINE BASIC 


Nella riga 10000 la variabile Z viene predisposta a 
1 (codice errato). Nella riga 10010 si controlla la lun- 
ghezza del codice e nelle righe 10020-10100 si con- 
trolla il tipo (alfabetico o numerico) di ogni carattere 
del codice. Il ciclo FOR-NEXT delle linee 10150- 
10270 somma i valori corrispondenti ai caratteri di 
posto dispari e pari usando diverse funzioni di strin- 
ga, e infine le istruzioni 10280-10290 calcolano il re- 
sto delle divisione per 26, e lo convertono nel carat- 
tere di controllo. Se il codice è corretto, la variabile 
Z viene posta a 0. 


Conclusioni 


In un certo senso, si può dire che la routine pre- 
sentata controlla l'esattezza “sintattica” del codice fi- 
scale, cioè verifica che sia stato trascritto senza erro- 
ri, nei limiti in cui il carattere di controllo consente 
tale verifica. Altro problema è quello di controllare 
l'esattezza “semantica” del codice, verificare cioè se 
corrisponde ai dati anagrafici del soggetto (che quin- 
di devono essere dati in input al programma). Que- 
st’ultimo è in effetti l'algoritmo di assegnazione del 
codice fiscale, che non ha interesse pratico per l’uten- 
te. 


Alcune considerazioni sulle istruzioni del program- 
ma. 

Alcuni interpreti richiedono il dimensionamento 
delle stringhe. In tal caso bisogna dichiarare DIM 
A$16. 

La fuzione di stringa MID$(A$,1,1) restituisce l’I- 
esimo carattere della stringa A$, ed è presente nella 
gran parte degli interpreti Basic (per esempio Apple- 
soft, PET Basic, TRS-80 Level II). In Integer Basic e 
con altri interpreti bisogna tradurre con A$(I,I). Nel 
Basic del Sinclair ZX80 si deve scrivere A$ (ITO I), 

VAL(B$) converte stringhe di caratteri numerici in 
variabili numeriche. Per esempio VAL(“12”) è 12. 

ASC(B$) converte il primo carattere di B$ nel suo 
codice ASCII. Generalmente i codici ASCII per le 
lettere A-Z partono da 65. 

CHR$(R) è la funzione inversa di ASC(B$) e resti- 
tuisce il carattere il cui codice è R. 

Se il codice ASCII del vostro computer non codifi- 
ca le lettere a partire dal numero 65, modificate di 
conseguenza le linee 10200, 10260, 10290. 
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Invitiamo tutti coloro che implementeranno 
questa routine sui loro computer, ad inviare 
eventuali correzioni, modifiche o suggerimenti a 

Personal Software 

Rubrica “Raccolta di routine Basic” 
Via Rosellini, 12 

20124 MILANO 

I suggerimenti ricevuti saranno raccolti e pub- 
blicati nei prossimi numeri della rubrica. 


Nel prossimo numero: 
il controllo della partita IVA. 


I 


Package di aritmetica 
intera per il 6502 


La prima parte di questo articolo 
presenta un insieme di routine che 
implementano l’aritmetica intera in 
tutti i computer che usano il micro- 
processore 6502 (Apple II, Apple 
III, Pet, Vic, Commodore 64, AIM 
65, Atom, BBC, SYM, Amico 
ecc.). Si può senz’altro affermare 
che la maggior parte dei personal e 
home computer diffusi in Italia 
(con l’unica eccezione per lo ZX80 
e ZX81) usino il 6502. Le capacità 
di questo microprocessore sono 
molto elevate e, per la versione ad 1 
MHz, possono essere paragonate 
alle capacità di uno Z80 a 4 MHz 
(vedi i test nella seconda parte del- 
l’articolo). Inoltre è dotato di un set 
di istruzioni semplice ma molto po- 
tente e di un grande numero di mo- 
di di indirizzamento. Queste carat 
teristiche sono molto apprezzate dai 
progettisti dei nuovi microprocesso- 
ri e sono alla base del successo del 
nuovo micro della Motorola: il 
68000. 

La seconda parte dell’articolo si 
rivolge in particolare ai possessori 
dell’Apple II. Viene presentata una 
applicazione delle routine di aritme- 
tica intera descritte nella prima par- 
te dell’articolo e viene fatto un con- 
fronto nella velocità di esecuzione e 
nella occupazione di memoria della 
stessa applicazione scritta nei vari 
linguaggi disponibili per l'Apple II. 


di Matteo Cerofolini 


e routine qui presentate sono 
i state studiate e messe a pun- 

to in occasione della realizza- 
zione del minicompilatore Basic 
pubblicato su Bit (settembre 1981). 
In quell’occasione esse furono pre- 
sentate prive di commenti poiché 
dovevano servire solo da supporto 
al compilatore e ne costituivano le 
routine di run time. Nonostante la 
struttura generale sia rimasta inva- 
riata esse sono state modificate in 
alcuni punti per renderle più gene- 
rali e soprattutto sono stati inseriti 
numerosi commenti per facilitarne 
la comprensione. ! 

La rappresentazione interna dei 
numeri è in complemento a due e 
per ogni numero vengono usati 
due byte di memoria. Il byte più si- 
gnificativo è nella locazione di me- 
moria più bassa con il bit più signi- 
ficativo che costituisce il segno. 
Questa rappresentazione è una 
semplice estensione della rappre- 
sentazione ad 8 bit usata per le 
normali operazioni sull’accumula- 
tore. Sfortunatamente ciò porta ad 
un piccolo inconveniente. Il più 
piccolo numero rappresentabile è 
—32768 mentre il più grande è 
+32767. Quindi se viene negato il 
valore —32768 ne nasce una condi- 
zione di overflow. 

Le routine principali sono quat- 
tro: moltiplicazione intera, divisio- 
ne intera, conversione da stringa a 
numero intero e conversione da 
numero intero a stringa. Queste 


quattro routine usano a loro volta 
altre subroutine che sono state in- 
serite tra le routine principali. I 
punti di ingresso delle quattro rou- 
tine principali sono i seguenti: 


BINDEC conversione da numero 
intero a stringa 


DECBIN conversione da stringa a 
numero intero 

MOLT moltiplicazione intera 

DIV divisione intera 


Tutte le routine principali esco- 
no con il flag di carry azzerato se 
non vi è stato overflow durante l’o- 
perazione e con il flag attivato se vi 
è stata una condizione di overflow. 


Tutto il package 
presenta condizioni di 
utilizzazione uniformi 


Da notare che le routine DIV e 
MOLT richiedono gli operandi nel- 
la forma inversa a quella normal- 
mente usata. Infatti, mentre di so- 
lito il numero intero è nella forma 
low-high cioè parte meno significa- 
tiva nella locazione bassa di memo- 
ria e parte più significativa nella lo- 
cazione alta di memoria, gli ope- 
randi PROD, MPCD, DVND e 
DVSR vanno caricati in maniera 
opposta. Per evitare confusione, si 
è preferito inserire all’ingresso del- 


33 


le due routine lo scambio dei byte 
così da avere delle condizioni di 


ilizzazi ‘formi i i 1020 x LE ROUTINES CHE SEGUONO ESTEN- 
a i malzonmsi di Gate 1030 x DONO LE CAPACITA' ARITMETICHE 
paczage: 1040 x DEL MICROPROCESSOR 6502 E 
1050 « PERMETTONO L'USO DI ARITMETICA 
1060 x INTERA SU QUANTITA' A 16 BIT 
1070 x SEGNATE. L'ARITMETICA USATA E' 
A 1080 x QUELLA DEL COMPLEMENTO A DUE. 
Le prestazioni 1090 * IL RANGE DEI VALORI AMMESSI E' 
1100 x 
Per verificare le prestazioni del 1110 x -32767 +32767 
pagarsi, Palo i inca î PER USARE LE ROUTINES CARICARE 
fan ie eno logi dai BI 1140 x I REGISTRI DI PAGINA ZERO CON 
guaggi disponibili sull’Apple II, e 1150 * GLI OPPORTUNI OPERANDI E CHIA- 
precisamente: 1160 * MARE LA ROUTINE OPPORTUNA. IL 
: 1170 x RISULTATO VIENE FORNITO NEL 
® Assembler 6502 che usa diretta- 1180 x REGISTRO INDICATO. IN CASO DI 
mente le routine presentate; 1190 x OVERFLOW IL CARRY AL RIENTRO E' 
i ; 1200 x DIVERSO DA ZERO. LA DECISIONE 
® Applesoft interpretato; 1210 x DA FRENDERE IN CASO DI OVERFLOW 
® Integer Basic interpretato; 1220 x Dil QUINDI LASCIATA ALLEUTENTE 
: SARE 1230 x CHE PROBABILI STAMPERA' 
® Applesoft compilato con il mini- 1240 x MESSAGGIO E RITORNERA' AL 
compilatore pubblicato su Bit; 1250 * PROPRIO MONITOR. OLTRE ALLE 
® Applesoft compilato con i com- 1250 * ROUTINES NUMERICHE» VENGONO 
pico pi dite (ue sign LEA TIE EE DIE GOT 
H r4 b.9 
Expediter, Speedstar). 1290 x STRINGA-NUMERO E NUMERO-STRINGA 
® MBasic usato con il sistema ope- 1300 x TUTTE LE ROUTINES RITORNANO CON 
rativo CP/M e la scheda Z80 della 1310 x CARRY CLEAR SE NON VI SONO 
Microsoft. 1320 x STATI ERRORI ALTRIMENTI VIENE 
1330 x SETTATO IL CARRY. 
a : 1340 x 
E stata inoltre usata una scheda 1350 x LE ROUTINE DERIVANO DA UN 
col microprocessore 8088 (ALF 1360 x INSIEME DI ROUTINE GIA' PRESEN- 
AD 8088 Processor Card) a 16 bit, 1370 x TATE IN OCCASIONE DELLA PUBBLI- 
che intercetta le routine matemati- 1380 x CAZIONE DEL MINI-COMPILATORE 
; : 1390 x EA ONO STATE MIGLIORATE 
che dell’Applesoft per eseguirle 1400 x E RITOCCATE IN ALCUNI PUNTI. 
molto più rapidamente. E una 1410 x NONOSTANTE SI SIA USATO UN 
scheda molto interessante che per- 1420 x APPLE II PER LO SVILUPPO DELLE 
mette anche l’uso del CP/M 86 e 1430 * ROUTINES ESSE SONO USABILI SU 
del MS-DOS sull’Apple II. 1440 x QUALSIASI COMPUTER CHE USI IL 
1450 x MICROPROCESSOR 6502, 
e = T==: 1460 x 
ioni 1470 x 
Le acini del lagnia 
1490 +OR $800 
PACSOER SHIA state à 1500 «TF B. INTEGER 
verificate con dodici 0800- 4C SE 0A 1510 JMP INIZIO 
$ =: 2 2 
linguaggi diversi iso 
1540 
1550 
A titolo di curiosità si è provato 1560 
il programma di test anche su un 1570 
elaboratore di grandi dimensioni 1950 
per verificare la differenza di pre- = Ta00 \EQ $EB 


stazioni esistente tra un micropro- 1610 sEQ $ED 
1620 
B 1630 
Listato 1. L'assemblato del package 
di aritmetica intera per il 6502 (se- 
gue). La parte finale del listato con- 1660 x REDEFINES PAGINA ZERO 
tiene il programma di test (dalla ri- D670 % 
ga 7610). 
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cessore e un maxi-elaboratore. Il 
computer è un Honeywell DPS se- 
rie 80 ed il linguaggio usato è il Ba- 
sic presente nel sottosistema Time 
Sharing (TSS). 

I programmi usati per il test so- 
no riportati nei listati da 2 a 5 e al 
termine del listato 1 (dalla riga 
7610). Lo Speed-Asm è uno spe- 
ciale linguaggio di tipo Basic che 
permette, in unione all’assemblato- 
re Lisa, una velocità quasi uguale a 
quella del linguaggio macchina. La 
versione usata per la prova con 
l’MBasic e col computer Honey- 
well DPS è uguale a quella Apple- 
soft. I programmi sono sostanzial- 
mente uguali in tutte le versioni di 
Basic ad eccezione di quella relati- 
va al minicompilatore, in cui non è 
implementata l’istruzione FOR- 
NEXT che è dunque stata sostitui- 
ta con una costruzione basata su 
IF-GOTO. 

Da notare infine che nei due 
compilatori Microsoft e Hayden 
non si è usata l’opzione di compila- 
zione con numeri interi che avreb- 
be fornito un programma-oggetto 
molto più veloce in termini di tem- 
pi di esecuzione. 


I programmi di test 
sono sostanzialmente 
uguali in tutte le 
versioni di Basic 


La tabella 1 riporta i tempi di 
esecuzione e l’occupazione di me- 
moria di ciascuna versione di pro- 
gramma. Per quanto riguarda l’oc- 
cupazione di memoria essa è data 
in settori di dischetto (256 byte) e 
non tiene conto dell’occupazione di 
memoria delle variabili nel caso di 
linguaggi interpretati e della neces- 
sità della presenza dell’interprete 
per molti dei linguaggi presentati. 


Conclusioni 


I risultati delle prove effettuate 
dimostrano che se è necessaria una 


Segue listato 1. 


00F9- 
00FD- 
00F9- 
00FD- 


0803- 
0805- 
0807- 


0809- 
080B- 
080D- 
080F- 
ogii- 
0813- 
0815- 


0B16- 
0818- 
081B- 
081D- 
0820- 
0823- 
0825- 
0826- 
0828- 


0829- 


00 
EC 


00 
ED 
AD 
04 
AB 
01 


ED 
37 
oD 
EA 
45 
04 


EE 


08 


09 
08 


1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 

1970 

1980 

1990 

2000 
2010 
zozo 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
ZiIiO 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 


DECBIN 


PARAMETRI* 


REG1 - PUNTA ALLA STRINGA DA 


CONVERTIRE. I VALORI 
AMMESSI NELLA STRINGA 
SONO I NUMERI DA 0 A 9 
ED I SEGNI °+" E "-°. IL 
SEGNO °+" E' OPZIONALE. 
IL PRIMO CARATTERE DI- 
VERSO DA '0' O '9' DE- 
TERMINA LA FINE DELLA 
STRINGA DA CONVERTIRE. 
ESSO PUO' ESSERE AD E- 
SEMFIO UNO ZERO BINARIO 
O UN CARRIAGE RETURN. 


- RISULTATO DELLA 
CONVERSIONE 


x AZZERA IL CAMPO N 


x 


CNV 


n 


EOCNV 
x» 
x 


SE LA STRINGA E' 
UN SEGNO '-' 0 
CARATTERE 


FINE DELLA CONVERSIONE . 


LDA #0 
STA N 
STA N+1 


PRECEDUTA DA 


"+' SALTA IL 


#$00 

(REG1)»Y 
%&'-+$80 LZ ON 
sl 
#'++$80 
CNU 


LDY 
LDA 
CMP 
BEG 
CMP 
BENE 
INY 


(REGI)»Y 
DCMLEK 
EDCNVU 
NEW 
DETEN 

.2 


LDA 
JSR 
ECS 
STA 
JSR 
BCS 
INY 
ENE 
SEC 


DECIMALE ? 
FINE CONVERS» 


OVERFLOW!! 


CNU 
ERRORE! 1 


RTS 


SE IL 


* PRIMO CARATTERE DELLA STRINGA 


* ERA IL SEGNO '-' 


SI ESEGUE IL 


36 


Linguaggio Tempo di Con |Occupazione 
esecuzione | AD8088 | di disco 
(sec) (sec) (settori) 
Honeywell DPS 0.3 — _ 
Assembler 6502 11.1 —_ 2 
Minicompilatore 1162; _ 5 
Speed ASM + Lisa 12.5 — 
Apple Pascal 15.2 = 
Compilatore Hayden 28.0 16.2 6 
Compilatore Expediter 29.5 Isl 3 
Compilatore Tasc 29.6 17.8 3+17 
Compilatore Speedstar 31.9 20.6 Dl 
Integer Basic 45.1 = 2 
Applesoft 54.6 41.8 2) 
MBasic (Z80) 98.0 _ 4 
2370 x COMPLEMENTO A DUE DEL RISULTATO 
2380 x 
082A- AO 00 2390 LDY #0 
082C- B1l ED 2400 LDA (REGI)»Y 
082E- C9 AD 2410 CMPR#&v=+$ 80 
0830- DO 03 2420 ENE FINEC 
0832- 20 76 08 2430 JSR TWOCOMP 
2440 FINEC 
0835- 18 2450 CLC NO ERRORE 
0836- 60 2460 RTS 
2470 * 
2480 x 
2490 x QUESTA ROUTINE CONTROLLA CHE IL 
2500 x CONTENUTO DELL'ACCUMULATORE SIA 
2510 x NUMERICO. SE CIO' NON SI VERI- 
2520 * FICA VIENE SETTATO IL FLAG DI 
2530 x DI CARRY. SE SI TRATTA DI UNA 
2540 x CIFRA VIENE RESTITUITO SOLO 
2550 x IL SEMIEYTE MENO SIGNIFICATIVO 
23560 x 
0837- C9 B0 2570 DCMLCK CMP #$B0 <0? 
0839- 90 08 2580 BCC NDEC 
083B- C9 BA 2590 CMP_#&$BA EPA 
083D- BO 04 2600 ECS NDEC 
083F- 29 0F 2610 AND #$F SOLO NIBBLE 
0841- 18 2620 CLC 
0842- 60 2630 RTS 
0843- 38 2640 NDEC SEC 
0844- 60 2650 RTS 
2660 x 
2670 *x QUESTA ROUTINE MOLTIPLICA X 10 
2680 x IL VALORE IN N E N+1 E SOMMA 
2690 * AD N N+1 IL CONTENUTO DI NEW 
2700 * SE VI E' OVERFLOW LA ROUTINE 
2710 * RITORNA COL CARRY SET 
2720 * 
0845- 06 EB 2730 DBETEN ASL N 
0847- 26 EC 2740 ROL N+1 
0849- BO 2A 2750 ECS EOMP OVERFLOW 
084B- AS EB 2768 LDA N 
084D- A6 EC 2770 LDX N+i 
084F- 06 EB 2780 ASL N 
0851- 26 EC 2790 ROL N+1 
0853- BO 20 2800 ECS EOMF OVERFLOW 
0855- 06 EB 2810 ASL N 
0857- 26 EC 2820 ROL N+1 
0859- BO 1A 2830 ECS EOMF OVERFLOW 


Tabella 1. 


grande velocità di esecuzione unita 
ad una bassa occupazione di me- 
moria occorre usare il linguaggio 
macchina. Anche il minicompilato- 
re si difende egregiamente e batte, 
in velocità di esecuzione e occupa- 
zione di memoria, i più blasonati 
compilatori Microsoft e Hayden. 
Occorre comunque ricordare che 
questi ultimi sono dei compilatori 
in grado di compilare la quasi tota- 
lità delle istruzioni Applesoft, 
mentre il minicompilatore riesce a 
compilarne solo una piccola parte. 


Se è necessaria la 
massima velocità di 
esecuzione occorre 
usare il linguaggio 
macchina 


Un discorso a parte va fatto per i 
risultati ottenuti dal maxi- 
computer Honeywell DPS. Come 
si vede la capacità di calcolo di un 
grande elaboratore è di molto su- 
periore a quella del pur veloce 
6502. I tempi inoltre, sono stati 
presi mentre l’elaboratore era im- 
pegnato ad eseguire molte altre 
task e potevano essere molto mi- 
gliori se il test fosse stato eseguito 
a macchina del tutto scarica. Per il 
calcolo di un tempo così breve si è 
eseguito un loop di 1000000 di 
FOR-NEXT e si è poi rapportato 
alle misure effettuate per gli altri 
linguaggi. 

Vorrei, per concludere, precisa- 
re che i test di questo tipo hanno 
una validità relativa perché con- 
frontano solo la velocità di esecu- 
zione e l’occupazione di memoria e 
non tengono conto di altri fattori 
quali ad esempio la facilità di pro- 
grammazione e di debugging, la 
leggibilità dei programmi, la com- 
pletezza del set di istruzioni di un 
determinato linguaggio e così via. 


Segue listato 1. 


085B- 18 2840 CLC 
085C- 65 EB 2850 ADC N 
085E- 85 EB 2860 STA N 
0860- 8A 2870 TXÀ 
0861- 65 EC 2880 ADC N+t1 
0863- BO 10 2890 ECS EDMP OVERFLOW 
0865- AA 2900 TAX 
0866- 85 EC 2910 STA N+1 
0868- AS EB 2920 LDA N 
086A- 18 2930 CLC 
086E- 6D EA 09 2940 ADC NEW 
086E- 85 EB 2950 STA N 
0870- 8A 2960 TXA 
0871- 69 00 2970 ADC #0 
0873- 85 EC 2980 STA N+1 
2990 EOMF 
0875- 60 3000 RTS 
3010 x 


3020 «x QUESTA ROUTINE ESEGUE IL 
3030 x COMFLEMENTO A 2 DEL DEL NUMERO 
3040 x CONTENUTO NEL CAMPO N E N+1 


3050 x 
3060 TWOCOMF 

0876- AS EE 3070 LDA N 

0878- 49 FF 3080 EOR #$FF 

087A- 85 EB 3090 STA N Ga 

087C- AS EC 3100 LDA N+1 

087E- 49 FF 3110 EOR #$FF 

0880- 85 EC 3120 STA N+1 

0882- Eé6 EB 3130 INC N 

0884- DO 02 3140 BNE EXCOMF 

0886- Eé EC 3150 INC N+ti 
3160 EXCOMF 

0888- 60 3170 RTS 
BI BO M-----------------— 
3190 x 
3200 x ==== BINDEC ==== 
3210 x 
3220 x CONVERSIONE NUMERO -> STRINGA 
3230 x 
3240 * PARAMETRI: 
3250 x 
3260 x N - NUMERO EINARIO INTERO 
3270 x DA CONVERTIRE 
3280 x 
3290 x REGi - PUNTATORE DI PAGINA 
3300 x ZERO CHE PUNTA ALLA 
3310 x STRINGA ASCII RISULTATO 
3320 x DELLA CONVERSIONE. LA 
3330 x STRINGA TERMINA CON IL 
3340 x VALORE BINARIO $00. IL 
3350 x» SEGNO '+' VIENE OMESSO 
3360 x MENTRE IL SEGNO '-' VIE- 
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Segue listato I. 


Personalmente preferisco usare 
l’Applesoft interpretato integran- 
dolo, ove occorra particolare velo- 
cità, con delle CALL a subroutine 
in linguaggio macchina. Ciò per- 
mette di usare la facilità di debug- 
ging del Basic e di sfruttare al mas- 
simo la velocità dell’unità centrale 
6502. 

Desidero infine ringraziare il 
dott. Rabellino di Alba per l’aiuto 
ed i preziosi consigli nell’effettuare 
alcuni test e la ditta Bits and Bytes 
di Milano per averci fornito i vari 
compilatori, lo Speed ASM, il Lisa 
e la scheda ALF “FTR 8088”. MI 


Segue listato 1. 


3370 x INDICATO. 
3390 x 
3400 BINDEC 
3410 x 
3420 x SALVA IL REGISTRO REG1 
3430 x 
0889- AS ED 3440 LDA REGI 
088B- 8D EB 09 3450 STA DEP 
088E- AS EE 3460 LDA REGI+1 
0890- 8D E9 09 3470 STA DEP+1 
3480 x 
3490 x CONTROLLO SE NEGATIVO 
3500 x 
0893- AS EC 3510 LDA N+1 
0895- 10 0C 3520 BPL .1 
3530 x 
3540 x IL NUMERO IN N N+1 E' NEGATIVO 
3550 x E QUINDI SI ESEGUE IL COMPLE- 
3560 x MENTO A DUE E SI METTE IN 
3570 x OUTPUT IL SEGNO '-' 
3580 x n 
0897- A9 20 3590 LDA #!-' 
0899- AO 00 3600 LDY #0 
0898- 91 ED 3610 STA CREG1)»Y 
089D- 20 E8 08 3620 JSR INCREG1 INCR. REG1 
08A0- 20 76 08 3630 JSR THOCOMP 
3640 .1 
08A3- A9 05 3650 LDA #5 MAX CIFRE 
OBAS- BD EB 09 3660 STA CNT 
3670 x 
3680 x INDICE PER L'ACCESSO ALLA 
3690 x TABELLA DI POTENZE DEL 10 
3700 x 
OBAB- AO 00 3710 LDY #80 
3720 DC1 
3730 x 
3740 x INIZIALIZZA DIGIT A ZERO ASCII 
3750 x 
OBAA- AS 30 3760 LDA #'0* 
O8AC- 8D EC 09 3770 STA DIGIT 
3780 DC2 
3790 x 
3800 x SOTTRAE LA FOTENZA DEL 10 
3810 x FINO AD AVERE ZERO O MENO E 
3820 x INCREMENTA LA CIFRA DIGIT 
3830 x 
O08AF- AS EB 3840 LDA N 
08BI- 38 3850 SEC 
0882- F9 F3 09 3860 SEC PTrY 
08B5- AA 3870 TAX 
0886- AS EC 3880 LDA N+i 
08BB8- F9 F4 09 3890 SEC PT+1rY 
08BB- 90 09 3900 ECC DC3 
08BD- 85 EC 3910 STA N+1 
08BF- 86 EB 3920 STX N 
08C1- EE EC 09 3930 INC DIGIT 
08C4- DO E9 3940 ENE DC2 
3950 DC3 
3960 x 
3970 x METTE DIGIT IN MEMORIA FUNTATA 
3980 x DA REG1 E INCREMENTA IL 
3990 x IL REGISTRO REG1 
4000 x 
08C6- A2 00 4010 LDX #0 
08C8- AD EC 09 4020 LDA DIGIT 
08CB- Bi ED 4030 STA CREGI,X) 
08CD- 20 EB 08 4040 JSR INCREGA1 
4050 DC4 
4060 x 
4070 x PUNTA ALLA FOTENZA DEL 10 
4080 x CHE SEGUE NELLA TABELLA FT 
4090 x 
08D0- c8 4100 INY 
08DI- CB 4110 INY 
4120 x 
4130 x DECREMENTA IL CONTATORE DI 
4140 x CIFRE E SE <> 0 RIPETE 
4150 x 
08D2- CE EE 09 4160 DEC CNT 
0805- DO DI 4170 ENE DCI 
4180 x 
4190 x METTE $00 A FINE STRINGA 
4200 x 
0807- A9 00 4210 LDA 80 
0BD9- AA 422 TAX 
08DA- Bi ED 4230 STA CREGIP?X) 
4240 x 
4250 x RIMETTE IL REGISTRO REGi AL 


08DC- 
08DF- 
0gE1- 
08E4- 
0BE6- 
08E7- 


08E8- 
OBEA- 
0BEC- 


OBEE- 


OBEF- 


08F2- 


AD 
85 
AD 
85 
18 
60 


E6 
DO 
E6 


ED 
02 
EE 


60 


70 09 


1D 09 


09 


0916- 
0919- 
091C- 


40 09 
7D 09 


20 
20 


60 


4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4920 
4430 
4440 
4950 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4950 
4860 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 


x VALORE ORIGINARIO 


LDA 
STA 
LDA 
STA 
CLC 
RTS 


DEP 
REGA 
DEP+1 
REG1+1 
NO ERRORE 


x 
x INCREMENTA IL PUNTATORE DI 
* PAGINA ZERO REG1 
x 
I 


NCREG1 
INC REGI1 
ENE .1 


INC REGI+1 


MOLTIPLICAZIONE INTERA 
PARAMETRI: 


FROD - 4 BYTES PER IL MOLTIPLI- 
CATORE E IL PRODOTTO 


MFCD - 2 BYTES PER IL MOLTIPLI- 
CANDO 


INGRESSO: 
MOLTIPLICATORE IN PROD+2 PROD+3 
MOLTIPLICANDO IN MPCD E MPCD+1 


USCITA è: 
FRODOTTO IN PROD FINO PROD+3 


ESEGUE LA NORMALIZZAZIONE DEGLI 
OFERANDI E LA RICERCA DEL SEGNO 
INVERTE GLI OPERANDI 

JSR SCAMEIO 
* RENDE POSITIVI GLI OPERANDI 
JSR NORMIN 


x 
* AZZERA LA FARTE ALTA DEL 
* RISULTATO 

x 


LDA #0 

STA PROD 

STA PROD+1 
UNSMO 


x 
%* NUMERO MASSIMO DI BIT 
x 


LDX 
cLe 


#17 


UNSMI 
JSR 
DEX 
BEO 
ECC 
LDA 
cLe 
ADC 
STA 
LDA 
ADC 
STA 
JMP 


SROL 


UNSM2 
UNSM1 
PROD+1 


FINE 16 BITS 
BIT = 0 


MPCD+1 
FROD+1 
PROD 
MPCD 
PROD 


UNSMI CONTINUA 


INSM2 


ESEGUE LA NORMALIZZAZIONE DEL 
RISULTATO IN USCITA 


MRC 


JSR NORMOT 
JSR SCAMBIO 
RTS 


x 
* LA ROUTINE CHE SEGUE TROVA IL 

* SEGNO DEL RISULATO DELLA OPERA- 
x ZIONE E LO SALVA NEL CAMPO 

x 


SEGNO. GLI OPERANDI VENGONO POI 


(segue) 


Segue listato 1. 


x TRASFORMATI IN INTERI PI 
x FACENDONE IL COMPLEMENTI 
x 

NORMIN 

x 

x TROVA IL SEGNO DEL RISULTATO 
x 


\ITIVI 
A DUE 


LDA PROD+2 

EOR MPCD 

STA SEGNO 
ESEGUE IL COMPLEMENTO A 2 SE 
L'OPERANDO E' NEGATIVO 


LDA 
BPL 
EOR 
STA 
LDA 
EOR 
STA 
INC 
BENE 
INC 


PROD+2 
SEGNZ 
®$FF 
PROD+2 
PROD+3 
#$FF 
PROD+3 
PROD+3 
SEGN2 
PROD+2 
SEGN2 
x 
* ESEGUE IL COMPLEMENTO A DUE 
x DELL'ALTRO OPERANDO SE QUESTO 
x E' NEGATIVO 
x 
LDA 
BPL 
EOR 
STA 
LDA 
EOR 
STA 
INC 
BNE 
INC 
EXNORMIN 
RT 


NPCD 
EXNORMIN 
®$FF 
MPCD 
MPCD+1 
#9FF 
MPCD+1 
MPCD+1 
EXNORMIN 
MPCD 


Ss 


LA ROUTINE CHE SEGUE EFFETTUA 
LA NORMALIZZAZIONE DEL 
RISULTATO IN USCITA. CONTROLLA 
CHE NON VI SIA OVERFLOH E SE IL 
CANPO SEGNO ERA NEGATIVO ESEGUE 
IL COMPLEMENTO A DUE DEL 
RISULTATO. 


ORMOT 


CONTROLLA CHE NON VI SIA 
OVERFLOW 


EHE HERE ZONE DONE DERE EEE 


5170 
5180 
5190 
5200 
5210 
5220 
5230 
091D- AS FB 5240 
091F- 45 FD 5250 
0921- BD F2 09 5260 
5270 
5280 
5290 
5300 
0924- AS FB 5310 
0926- 10 10 5320 
0928- 49 FF 5330 
092A- 85 FB 5340 
092C- AS FC 5350 
092E- 49 FF 5360 
0930- 85 FC 59370 
0932- E6 FC 5380 
0934- DO 02 5390 
0936- Eé FB 5400 
5410 
5420 
5430 
5440 
5450 
5460 
0938- AS FD 5470 
093A- 10 10 5480 
093C- 49 FF 5490 
093E- 85 FD 5500 
0940- AS FE 5510 
0942- 49 FF 5520 
0944- 85 FE 5530 
0946- E6 FE 5540 
0948- DO 02 5550 
094A- E6 FD 5560 
5570 
094C- 60 5580 
5590 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
094D- AS F9 5740 
094F- Fo 03 5750 
0951- 4C 7B 09 5760 
5770 
0954- AS FA 5780 
0956- FO 03 5790 
0958- 4C 7B 09 5800 
5810 
095B- AS FB 5820 
095D- 10 03 5830 
095F- 4C 7B 09 5840 
5850 
5860 
5870 
5880 
5890 
0962- AD F2 09 5900 
0965- 10 12 5910 
0967- AS FB 5920 
0969- 49 FF 5930 
096B- 85 FB 5940 
096D- AS FC 5950 
096F- 49 FF 5960 
0971- 85 FC 5970 
0973- Eé FC 5980 
0975- DO 02 5990 
0977- E6 FB 6000 
6010 
0979- 18 6020 
097A- 60 6030 
6040 


LDA 
BE 
JMP 
NORMOTI 
LDA 
BEQ 
JMP 
NORMOT2 
LDA 
BPL 
JMP 
NORMOT3 
x 
SE SEGNO 


x 
x COMFLEMENTO A DUE 
» 


LDA 
BFL 
LDA 
EOR 
STA 
LDA 
EOR 
STA 
INC 
BENE 
INC 
EXNORMOT 
CLE 
RTS 


PROD 
NORMOTI 
OVERFLOW 


PROD+1 
NORMOT2Z 
OVERFLOW 


PROD+2 
NORMOT3 
OVERFLOW 


ESEGUE IL 
DEL RISULTATO 


NEGATIVO 


SEGNO 
EXNORMOT 
PROD+2 
#$FF 
PROD+2 
PROD+3 
#8FF 
PROD+3 
PROD+3 
EXNORMOT 
PROD+2 


097B- 38 
097C- 60 
097D- AS 
097F- 48 
0980- AS 
0982- 85 
0984- 68 
0985- 85 
0987- AS 
0989- 48 
098A- AS 
098C- 85 
098E- 68 
098F- 85 
0991- 60 
0992- 20 
0995- 20 
0998- AP 
099A- 85 
099C- 85 
099E- A2 
09A0- 18 
09A1- AS 
09A3- 38 
09A4- ES 
09A6- AB 
09A7- AS 
09A9- ES 
09AB- 90 
09AD- 85 
09AF- 98 
09B0- 85 
0982- 20 
09B5- CA 
09B6- DO 
09B8- AD 
098E- 10 


FB 


FC 
FB 


FC 
FD 


FE 
FD 


FE 


70 


1D 


00 
F9 
FA 


11 


FÀ 
FE 
F9 
FD 
05 
F9 
FÀ 
DO 


E9 


ez 


09 


09 


09 


09 


6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 
6420 
6430 
6490 
6450 
6960 
64970 
6480 
6490 
6500 
6510 
6520 
6530 
6540 
6550 
6560 
6570 
6580 
6590 
6600 
6610 
6620 
6630 
6640 
6650 
6660 
6670 
6680 
6690 
6700 
6710 
6720 
6730 
6740 
6750 
6760 
6770 
6780 
6790 
6800 
6810 
6820 
6830 
6940 
6850 
6860 
6870 
6880 
6890 
6900 
6910 
6920 
6930 
6940 


x 
x 
x 
x 
x 
x 
FI 
x 
x 
x 
x DUSR - 2 
x 
x 
* 
x 
* 
x 
x 
x 
x 


x ROUTINE DI OVERFLOW 

x 

OVERFLOW 
SEC 
RTS 


SEGNALA OVER 


x 
x SCAMBIA GLI OPERANDI DAL 

x FORMATO LOW-HIGH A HIGH-LOW 

x USANDO LO STACK COME DEPOSITO 
x 

Ss 


(CAMBIO 
LDA 
PHA 
LDA 
STA 
FLA 
STA 
LDA 
PHA 


PROD+2 


PROD+3 
PROD+2 


PROD+3 
NPCD 


MPCD+1 
MPCD 


MPCD+1 


DIVISIONE INTERA 


PARAMETRI! 


DVND - 4 BYTES PER IL DIVIDENDO 
E IL QUOZIENTE 


BYTES PER IL DIVISORE 


INGRESSO? 

DIVIDENDO DUND+2 E DUND+3 
DIVISORE IN DUSR E DUSR+1 
USCITA i 

QUOZIENTE IN DUND+2 E DUND+3 
RESTO IN DUND E DUND+1 


x 
DIV 

* 

x SCAMBIA GLI OPERANDI 


JSR SCAMBIO 


x NORMALIZZA GLI OPERANDI 


JSR NORMIN 


x 
x AZZERA LA PARTE ALTA DEL 
x RISULTATO 
» 


LDA #0 

STA DUND 

STA DVND+1 
x NUMERO MAX DI BITS = 17 
LDX 
CLE 


017 


UNSDVI 

LDA 
SEC 
SBC 
TAY 
LDA 
SBC 
BCC 
STA 
TYA 
STA 


DVND+1 
DUSRT1I 


DUND 
DUSR 
UNSDV2 
DUND 


DUND+1 
UNSDVZ 
JSR 
DEX 
BNE 


RLQL 
UNSDVI 


NORMALIZZA IL SEGNO IN USCITA 
ED ESEGUE» SE NEGATIVO IL 


CIRETI 


LDA SEGNO 
BPL EXDIV 


(segue) 


COMPLEMENTO A DUE DEL RISULTATO 


39 


40 


Segue listato 1. 


09BD- 
D9BF- 
09C1- 
09C3- 
09C5- 
09C7- 
09C9- 
09CB- 
09CD- 


09CF- 
09D2- 
09D3- 


09D4- 
09D6- 
09D8- 
09DA- 
09DC- 


09DD- 
09DF- 
09E1- 
09E3- 
09E5- 


09E6- 
09E7- 
09E8- 


AS 
49 
85 
AS 
49 
85 
E6 
DO 
E6 


20 
18 
60 


66 
66 
66 
66 
60 


09EA- 


09EB- 
09EC- 
09ED- 
09F2- 


09F3- 
09F5S- 
09F7- 
09F9- 
09FB- 


DB3A- 
0200- 
FD6A- 
FC58- 
FDBE- 


09FD- 


10 
EB 
64 
CA 
01 


FB 
FF 
EB 
FC 
FF 
FC 
FC 
02 


FB 
7D 


(i 
FA 
FB 
FC 


FC 
FB 
FÀ 
F9 


27 
03 
00 
00 
00 


09 


DI DS C1 


6950 

6960 

6970 

698F 
6990 

7000 

7010 

7020 

7030 

7040 

7050 

7060 

7070 

7080 

7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 
7390 
7400 
7410 
7420 
7430 
7440 
7450 
7460 
7470 
7480 
7490 
7500 
7510 
7520 
7530 
7540 
7550 
7560 
7570 
7580 
7590 
7600 
7610 
7620 
7630 
7690 
7650 
7660 
7670 
7680 
7690 
7700 

7710 

7720 
7730 
7790 
7750 

7760 


LDA PROD+2 
EOR #$FF 
STA PROD+2 
LDA PROD+3 
EOR @$FF 
STA PROD+3 
INC PROD+3 
BNE EXDIV 
INC PROD+2 
EXDIV 
JSR SCAMBIO 
CLC 
RTS 
x 
x SUBROUTINE DI SHIFT QUADRUPLO 
x A DESTRA. ESCE CON IL BIT 
x SHIFTATO NEL CARRY. À 
x 
SROL ROR PROD 
ROR PROD+1 
ROR PROD+2 
ROR PROD+3 
RTS 
x 
x SUBROUTINE DI SHIFT QUADRUPLO 
x A SINISTRA. ESCE CON IL BIT 
x SHIFTATO NEL CARRY, 
x 
RLQOL ROL PROD+3 
ROL PROD+2 
ROL PROD+1 
ROL PROD 
RTS 
x 
x AREE DI LAVORO.QUESTE AREE DI 
x MEMORIA POSSONO ESSERE MESSE IN 
x QUALUNQUE LOCAZIONE. E' BENE 
x NOTARE COMUNQUE CHE» SE MESSE 
x IN PAGINA ZERO» RENDOMO PIU' 
x COMPATTE E PIU' VELOCI LE 
x ROUTINES PRESENTATE. 
* 
OVER »BS 1 
ERROR .BS 1 
DEF sBES 2 
NEW «ES 1 
CNT «BS 1 
DIGIT .BS 1 
DECNUM .BS 5 
SEGNO .ES 1 


x 
x TABELLA DI POTENZE DEL 10, 

% VIENE USATA DALLA ROUTINE DI 
x CONVERSIONE EINARIO-DECIMALE 
PI 
PT «DA 
«DA 
«DA 
«DA 


10000 
1000 
100 
10 


«DA 1 


x EQUATES 
Mine 
FI 

PRTSTR .EQ $DB3A STAMPA STRING 
KEYBRD .EQ $200 TASTIERA 
GETLN EG $FD6A GET LINE 

HOME «EQ $FC58 HOME 

CRLF «EQ $FDBE RETURN 

Pi 

E RESET 
» LITERALS 


0A00- 
0A03- 
0A06E- 
0A09- 
DADA- 
0AOB- 
DADE- 
DAl1- 
0A14- 
0A17- 
0A18- 
0A19- 
0AILC- 
DA1LF- 
0A22- 
0A25- 
0A28- 
0A29- 
0A2C- 
0A2F- 
0A32- 
0A35- 
0A36- 
0A39- 
DAZC- 
DA3F- 
0A42- 


0A43- 
0A45- 


0A47- 


DASB- 
VASE- 
DA6O- 


0A62- 


0A6S- 
0A67- 
0A69- 


DA6C- 
DA6F- 


0A72- 
DA7 4- 
0A76- 
0A78- 
DAZA- 
0A7D- 
0A7F- 


0AB2- 
0AB4- 
0A87- 
0AB9- 


0ABcC- 


AP 
85 


A9 


BF 
33 


(1153 


FC 


FD 


De 


FD 
FD 


08 


ce 


ULI 
ULI 


7820 
7830 


7840 
7850 


7860 
7870 


7880 
7890 


7900 
7910 
7920 
7930 
7940 
7950 
7960 
7970 
7980 
7990 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
8100 
8110 
8120 
8130 
8140 
8150 
8160 
8170 
B180 
8190 
8200 
8210 
8220 
8230 
8240 
8250 
8260 
8270 
8280 
8290 
8300 
8310 
8320 
8330 
8340 
8350 
8360 
8370 
8380 
8390 
8400 
8410 
8420 
8430 
8440 
8450 
B460 
8470 
8480 
8490 
8500 
8510 
8520 
8530 
8540 


RICHO .AS -*QUANTE VOLTE * 
«HS 00 

RICHI .AS -"PRIMO NUMERO * 
+HS 00 

RICH2 .AS -"SECONDO NUMERO * 
«HS 00 

RISP1 .AS -"OVERFLOW 111® 
«HS 00 

RISP2 .AS -"RISULTATO = * 
+HS 00 

x 

e E EST STIII DI CIAIVIE G.SVARIRA 

x CONTATORI 


E e SII NOR, GRIP AIR 1. 
x 

MAX «BS 2 

CTR «BS 2 

x 

ge ein alii di dI De I Saia Sen 
x DEPOSITI NUMERI 


INIZIO USR HOME 
LDA #'?+$80 
STA $33 
INIZIO1 
JSR CRLF 


LDA $RICHO 
LDY /RICHO 
JSR PRTSTR 


* LEGGE DA TASTIERA 
x 


JUSR GETLN 
JSR CRLF 


* TRASFORMA IN INTERO IN MAX 
ae 


®KEYBRD 
REG1 
/KEYBRD 
REG1+1 
DECBIN 
«1 


ERRORE OVERFLOH ? 


LDA @RICHI 


(segue) 


Segue listato 1. 9140 x AZZERA CAMPI 
9150 x CARICA GLI OPERANDI 


0ABE- AD 0A 8550 LDY /RICHI 9160 ni------------------------------- 
0A90- 20 3A DE 8560 USR PRTSTR 9170 LOOP 
8570 mi-------------------------------- 0ADC- AS 06 9180 LDA NI 
8580 x LETTURA DA TASTIERA OADE- 85 FE 9190 STA PROD+2 
8590 wiu==--------------2-------------- OAEO- AS 07 9200 LDA Ni+1 
0A93- 20 6A FD 8600 JSR GETLN 0AE2- 85 FC 9210 STA PROD+3 
0A96- 20 BE FD 8610 JSR CRLF 0AE4- AS 08 922 LDA N2 
SE20 A OAES- 85 FD 9230 STA MPCD 
8630 x TRASFORMA IN INTERO IN NyN+1 0AEB- AS 09 9240 LDA N2+1 
E tto OAEA- 85 FE 9250 
0A99- AP 00 8650 LDA #@KEYBRD E 9260 
0A9E- 85 ED 8660 STA REGI 9270 
0A9D- AP 02 8670 LDA /KEYBRD 9280 
0A9F- 85 EE 8680 STA REGI1+1 OAEC- 20 EF 08 9290 JSR MOLT 
OAAI- 20 03 08 8690 JSR DECBIN OAEF- BD 1E 9300 BCS ERRORE OVERFLOH ? 
DAAA- BO 69 8700 BCS ERRORE OVERFLOH ? TIMER 
8710 9320 x DECREMENTA IL CONTATORE 
8720 x SALVA IL NUMERO IN NirNi+1 9330 x E RIPETE PER MAX VOLTE 
8730 9BAO in 
0AAS- AS EB 8740 LDA N OAF1- CE 45 0A 9350 DEC CTR 
CAAB- 85 06 8750 STA Ni 0AF4- DO E6 9360 BNE LOOP 
CAAA- AS EC 8760 LDA N+1 DAF6- AD 46 0A 9370 LDA CTR+1 
DAAC- 85 07 8770 STA Ni+1 0AF9- FO 06 9380 BEG STAMPA 
8780 m-------------------------------- OAFE- CE 46 0A 9390 DEC CTR+1 
8790 x RICHIESTA SECONDO NUMERO OAFE- 4C DC 0A 9400 JMP_ LOOP 
8800 m------------------------------- 910 nin 
DAAE- A9 19 8810 LDA #RICH2 9420 x FINE TEST. STAMFA RISULTATO 
DABO- AO 0A 8820 LDY /RICH2 SRI 
0AEZ- 20 3A DB 8830 JSR PRTSTR 9440 STAMFA 
8840 mi-------------------------------- 0E01- AS FE 9450 LDA PROD+2 
8850 x LETTURA DA TASTIERA 0B08- 85 EE 9460 STA N 
BB6O n------------------------------- 0B05- AS FC 9470 LDA PROD+3 
0AES- 20 6A FD 8870 JSR GETLN 0607- 85 EC 9480 STA N+1 
0AES- 20 SE FD 8880 JSR CRLF 0E09- 20 19 0E 9490 JSR PRINTN 
8890 mi------------------------------—- OEOC- 4C 62 0A 9500 JUMP INIZIO1 
B900 x TRASFORMAZIONE IN NUMERO INTERO 950 mute 
Ba e oe 9520 x ROUTINE DI ERRORE 
OABB- A9 00 8920 LDA #KEYBRD PIO M------------- 
OABD- 85 ED 8930 STA REGI 9540 ERRORE 
OABF- A9 02 8940 LDA /KEYBRD OEOF- A9 29 9550 LDA #RISF1 
0AC1i- 85 EE 8950 STA REG1+1 OB11- AD 0A 9560 LDY /RISP1 
0AC3- 20 03 08 8960 JUSR DECBIN 0E13- 20 3A DE 9570 JSR PRTSTR 
0AC6- E0O 47 8970 BCS ERRORE OVERFLOW? 0B16- 4C 62 0A 9580 JUMP INIZIO 
8980 9590 
8990 9600 
u 9000 9610 
0ACB- AS EB 9010 9620 FRINTN 
CACA- 85 08 9020 STA NZ 0E19- A9 36 9630 LDA $RISF2 
0ACC- AS EC 9030 LDA N+1 OBIE- AO 0A 9640 LDY /RISPZ 
0ACE- 85 09 9040 STA N2+1 OB1D- 20 3A DE 9650 USR PRTSTR 
9050 Mim----------2-2-2--22- 0820- A9 47 9660 LDA #EUFF 
9060 x CARICA IL CONTATORE 0E22- 85 ED 9670 STA REG1 
9070 i 0E24- A9 0A 9680 LDA /BUFF 
0ADO- AD 43 0A 9080 LDA MAX 0E26- 85 EE 9690 STA REGI+1 
0AD3- 8D 45 0A 9090 STA CTR 0E28= 20 89 08 9700 USR BINDEC 
0ADS- AD 44 0A 9100 LDA MAX+1 0E2E- AS ED 9710 LDA REGI 
0ADI- BD 46 0A 9110 STA CTR+1 0E2D- A4 EE 9720 LDY REG14+1 
9120 x- 0B2F- 20 3A DE 9730 JSR PRTSTR 
9130 x LOOP PRINCIPALE 0E32- 60 9740 RTS 


Tabella dei simboli del listato 1. 09EC- DIGIT 0200- KEYERD 
0992- DIV CADC- LOOF 

0889- BINDEC 00F9- DVND 0A43- MAX 
+01=08A3 D0FD- DVSR 08EF- MOLT 
0A47- BUFF OBZA- EOCNU 00FD- MPCD 
O9EE- CNT 0875- EOMF O0EB- N 
0816- CNVU 09E7- ERROR 0006- Ni 
+02=0829 0B0F- ERRORE 0008- NZ 
FD8E- CRLF 0888- EXCOMF 0843- NDEC 
0A45- CTR 09CF- EXDIV 09EA- NEW 
0845- DETEN 094C- EXNORMIN 091D- NORMIN 
08AA- DCI 0979- EXNORMOT 094D- NORMOT 
08AF- DC2 0835- FINEC 0954- NORMOTI 
08c6- DC3 FD6A- GETLN 095E- NORMOT2 
08D0- DC4 FC58- HOME, 0962- NORMOT3 
0837- DCMLCK 08E8- INCREGCI 09E6- QUER 
0803- DECEBIN +01=08EE 097B- OVERFLOW 
»01=0815 0ASB- INIZIO O0B19- PRINTN 
09ED- DECNUM 0AS2- INIZIOI 00F9- PROD 


09E8- DEF +01=0A82 DES3À- PRTSTR 


Tabella dei simboli del listato 1 (segue). 0A36- RISF2 09A1- UNSDVI 


09DD- RLQL 09B2- UNSDV2 
09F3- PT 097D- SCAMBIO OB8FE- UNSMI 
Q0ED- REGI 0938- SEGN2 0916- UNSM2 
09FD- RICHO 09F2- SEGNO 08FB- .UNSMO 
O0A0E- RICHIi 09D4- SRAL 
0A19- RICHZ 0E01- STAMPA 
0AZ9- RISPI1 0876- TWOCOMP 


5 HOME 
10 INPUT "QUANTE VOLTE ? "3MAX 10 PRINT "QUANTE VOLTE "3? INPUT MAX 
20 INPUT "PRIMO NUMERO ? "sN1 20 PRINT “PRIMO NUMERO "?î? INPUT N1 
30 INPUT "SECONDO NUMERO ? "3N2 30 PRINT “SECONDO NUMERO "3? INPUT N2 
40 FORI = 1 TO MAX 40 FOR I=1 TO MAX 
50 RIS = N1 / N2 50 RIS=N1/N2 
60 NEXT I 60 NEXT I 
70 PRINT "RISULTATO = "3RIS 70 PRINT “RISULTATO = "RIS 
80 END 80 END 
Listato 2 Applesoft (interpretato e compilato). Listato 3. Integer Basic. 

PROGRAM TEST? 

VAR 
NUM» DENr RIS» Iy MAX î? INTEGER? 

BEGIN 
5 HOME WRITE ('QUANTE VOLTE ? ')? 
10 INPUT “QUANTE VOLTE ? "3MAXX READLN (MAX)? 
20 INFUT "PRIMO NUMERO ? "sN1% WRITE ('PRIMO NUMERO ? ')î 
30 INFUT "SECONDO NUMERO ? "3N2% READLN (NUM); 
35 IX=1 WRITE ('SECONDO NUMERO ? '); 
40 IF IZ > MAXX THEN 70 READLN (DEN)? 
50 RISZ = N1% / N2% FOR I ?= 1 TO MAX DO 
60 IX = IX + 1: GOTO 40 RIS ?= NUM DIV DEN? 
70 PRINT "RISULTATO = "8RISX WRITELN €('RISULTATO = 'sRIS) 
80 END END. 


Listato 4. Mini-compilatore. Listato 5. Pascal. 


DIZIONARIO DI BASIC 


A. funzione 


Abbreviazione di ABS (vedi), di AT (vedi), di 
AND (vedi). 


ABS funzione (ANSI) 


La funzione ABS fornisce il valore assoluto del 
numero specificato. A=ABS(N) significa che A vie- 
ne posto ‘uguale al valore assoluto di N. Esempio: 
ABS(-12) è 12. 

La funzione ABS è presente in tutti gli interpreti 
Basic. Talvolta è abbreviata con A. 


AND operatore 


L’operatore logico AND è utilizzato per connette- 
re due condizioni logiche (vedi riquadro). Per esem- 
pio IF A=8 AND B>S5 THEN RETURN significa 
che se il valore di A è 8 e il valore di B è maggiore di 
5 deve essere eseguita l’istruzione RETURN. Quan- 
do due relazioni x e y sono connesse da un operatore 
AND, l’intera relazione x AND y è verificata (o ve- 
ra) se sia x che y sono verificate (o vere), secondo il 
seguente schema 


x y x AND y 
vera vera vera 
vera falsa falsa 
falsa vera falsa 
falsa falsa falsa 


L’operatore AND è presente nella gran parte degli 
interpreti Basic. Talvolta è abbreviato con A., *, &. 


Se il tuo computer non l’ha 

In una istruzione IF-THEN l’operatore AND può 
essere simulato con due istruzioni IF-THEN. Per 
esempio IF A=8 AND B>S THEN z si può scrivere 


10 IF A< > 8 THEN 30 
20 IFB > 5S THEN z 
30 prossima istruzione 
ACS funzione 
La funzione ACS è utilizzata in alcuni interpreti 


Basic per calcolare l’arcocoseno del numero specifi- 
cato in radianti. A=ACS(N) significa che A viene 
posto uguale all’arco (espresso in radianti) che ha N 
come coseno (il valore di N deve essere compreso tra 
—1 e 1). Per esempio, ACS(0) è 1.5708 radianti (x/ 
2). 
La funzione ACS non è presente in tutti gli inter- 
preti Basic; talvolta è indicata con ARCOS (ZX80) o 
con AC. (TRS-80 Pocket Computer). 


Se il tuo computer non l’ha 
Può essere simulata mediante ATN (vedi) e SOR 
(vedi): ACS(X) si può scrivere 


2*(ATN(1) — ATN (X/(1+SOR (1-X*X)))) 
(il valore di X deve essere compreso tra —1 e 1). 


ASC funzione 


La funzione ASC fornisce il codice ASCII decima- 
le del carattere usato come argomento. A=ASC(A$) 
significa che A viene posto uguale al codice ASCII 
del primo carattere della stringa A$. Per esempio 
ASC(“B”) è 66. 

Su Atom Acorn è indicata con CH. 

La funzione inversa di ASC è CHR$ (vedi). 


? (apostrofo) istruzione o operatore 


L’apostrofo è usato da molti interpreti Basic come 
abbreviazione dell’istruzione REM (vedi). 


Inizia questo mese il Dizionario di Basic, 
una guida alfabetica ragionata a tutte le istru- 
zioni, le funzioni, gli operatori presenti negli 
interpreti Basic più diffusi, con indicazioni su- 
gli usi particolari, le eccezioni, le modalità d’u- 
so, la simulazione di istruzioni e funzioni non 
presenti. 

Ogni mese presenteremo, in ordine alfabeti- 
co, una serie di schede illustrative e di riquadri 
su argomenti particolari (la grafica, il codice 
ASCII, le espressioni logiche, e così via). 

Come sempre, chiediamo il contributo dei 
lettori per eventuali correzioni, aggiunte, sug- 
gerimenti. Scrivete a 

Personal Software 

Rubrica “Dizionario di Basic” 
Via Rosellini 12 

20124 MILANO 
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DIZIONARIO DI BASIC 


Per esempio 
10° COMMENTO 


Alcuni interpreti usano l’apostrofo per delimitare 
le stringhe (per questo scopo la maggior parte degli 
interpreti usa le virgolette (vedi)). Per esempio 


10 PRINT'STRINGA’ 


Infine l’apostrofo è usato dal Basic Atom Acorn 
come indicatore di ritorno cursore (CR o RETURN) 
nelle istruzioni PRINT. Per esempio, se A=1, B=2, 
C=3, PRINT A’B’C stamperà 


ui 
2 
3 
ASN funzione 


La funzione ASN è utilizzata in alcuni interpreti 
Basic per calcolare l’arcoseno del numero specificato 
in radianti. A=ASN(N) significa che A viene posto 
uguale all’arco (espresso in radianti) che ha N come 
seno (il valore di N deve essere compreso tra —1 e 
1). Per esempio ASN(0) è 0 radianti. 

La fuzione ASN non è presente in tutti gli inter- 
preti Basic; talvolta è indicata con ARCSIN (ZX80). 


Se il tuo computer non l’ha 
Può essere simulata mediante ATN (vedi) e SOR 
(vedi): 


ASN(X) si può scrivere 
2*#ATN(X/(1+SQOR(1-X*X))) 


AT funzione 


La funzione AT è utilizzata dopo una PRINT per 
indicare la posizione d’inizio della stampa. L’argo- 
mento di AT può essere un numero, una variabile 
numerica o una espressione numerica. Tra AT e l’ar- 
gomento della PRINT deve essere inserita una virgo- 
la o un punto e virgola. 

La funzione AT è utilizzata nel TRS-80 Level I 
Basic. Altri interpreti (Level II) usano @ per questo 
scopo. 


ATN funzione (ANSI) 


La funzione ATN calcola l’arcotangente di un nu- 
mero specificato in radianti. A=ATN(X) significa 
che A viene posto uguale all’arco (espresso in radian- 
ti) che ha X come tangente. Per esempio ATN(2) è 
1.10715 radianti. 
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Condizioni logiche 


In Basic si può formare una condizione logica, det- 
ta anche espressione relazionale, confrontando espres- 
sioni numeriche (o di stringa) mediante gli operatori 
(detti di selezione) 


= uguale <> 0 # diverso 
> maggiore < = minore o uguale 
< minore > = maggiore o uguale 


Ecco alcuni esempi: 


(a) A> = 14.3 
(b) A < B (e) A$ = “PF” 
(c) A+1<> B«2-7. (f) A$<> “STOP” 


La condizione logica così formata può essere vera o 
falsa per particolari valori delle variabili. Per esempio 
la condizione (a) è vera se A=20, è falsa se A=10, e 
analogamente per le altre. Più condizioni logiche si 
possono congiungere in un’unica condizione logica 
mediante gli operatori AND (vedi) e OR (vedi); una 
condizione logica si può negare mediante l’operatore 
NOT (vedi). Generalmente le condizioni logiche si 
usano nelle istruzioni IF-THEN (vedi) per permettere 
salti condizionati. 


(d) A$ < B$ 


Alcuni computer tuttavia assegnano alle condizioni 
vere un certo valore e alle condizioni false un altro 
valore (generalmente scelti tra 0, 1 e —1) ed è possi- 
bile utilizzare direttamente tali valori, per esempio 
scrivendo 


PRINT B=0 


e ottenendo il valore corrispondente a “vero” se B è 
zero o quello corrispondente a “falso” se B è diverso 
da zero. Altro esempio: 


A=B+(C<2) 


dove ad A viene assegnato il valore di B più il valore 
corrispondente a “vero” se C è minore di 2, Oppure il 
valore corrispondente a “falso” se C è maggiore 0 
uguale a 2. Analogamente: 


A=(L=100) 


Questa istruzione assegnerà “vero” ad A se L è 
100, “falso” se L è diverso da 100. 

I valori assegnati dai principali interpreti Basic alle 
condizioni vere o false sono i seguenti. 


Applesoft e Atom Commo- Zx80 
Integer Basic _Acorn dore ZxX81 
1 1 =1 1 
0 0 0 0 


DIZIONARIO DI BASIC 


La funzione ATN è presente nella maggior parte 
degli interpreti Basic (non è presente in Integer Ba- 
sic). Talvolta è indicata con ATAN, ARCTAN 
(ZX80). 


Importanti utilizzazioni 
Molti interpreti Basic hanno ATN come unica fun- 
zione circolare inversa (non hanno cioè ACS e 
ASN). Ciò è dovuto al fatto che è la più immediata 
da usare per trovare le altre funzioni circolari inver- 
se, le cui formule in funzione di X sono 
arcocoseno (vedi ACS) 
2*(ATN(1)- ATN(X/(1+SOR(1-X*X)))) 


arcocotangente ATN (1/X) 
arcosecante ATN (1/SOR (X*X-1)) 
arcocosecante ATN (SQR (X*X-1)) 


arcoseno (vedi ASN) 2+ATN (X/(1+SQOR(1-X*X))) 


Inoltre ATN è l’unico modo per calcolare imme- 
diatamente (e con la maggior precisione possibile) il 
valore di pi greco, quando non è presente come co- 


stante: 
PI = 4*ATN(1) 


AUTO comando 


Il comando AUTO fornisce automaticamente i nu- 
meri di linea durante la battitura di un programma 
Basic. Per esempio AUTO 100,5 parte dal numero 
100 e prosegue con incrementi di 5 (100, 105, 110, 
115, 4) 

Il comando AUTO è disponibile solo in alcuni in- 
terpreti (Integer Basic, TRS-80 Level II Basic). Negli 
altri può essere aggiunto come routine di utilità. 


BREAK tasto 


Il tasto BREAK interrompe l’esecuzione del pro- 
gramma. L’esecuzione può essere continuata con il 
comando CONT (vedi). Vedi anche STOP. Sul PET/ 
CBM il tasto è indicato RUN/STOP e premendolo 
appare il numero di linea in cui il programma si è 
fermato. 

Sul TRS-80 il tasto BREAK è presente sia in livel- 
lo I che in livello II. Per disabilitarlo POKE 
16396,23. Per riabilitarlio POKE 16396,201 o POKE 


16396,20. Vedi POKE. 
Sull’Apple il tasto è indicato RESET e su alcuni 
modelli bisogna premerlo assieme a CTRL. 


C. comando 


Abbreviazione di CONT (vedi). 


CALL comando 


CALL è un comando presente in qualche interpre- 
te Basic che permette di passare il controllo ad un 
programma scritto in linguaggio macchina. Per esem- 
pio CALL 18624 trasferisce il controllo al program- 
ma che inizia all’indirizzo 18624. 

Alcuni interpreti usano USR (PET/CBM, TRS-80) 
(vedi). Vedi anche SYS. 


CDBL funzione 


La funzione CDBL viene utilizzata per cambiare 
numeri o variabili numeriche dalla singola precisione 
alla doppia precisione (C=change, DBL=double). 

Nel TRS-80 Level II Basic, i numeri in singola 
precisione contengono 6 cifre significative, quelli in 
doppia precisione 16 cifre significative. Esempio: 


10 CLS 

20 X=6: Y=7 

30 PRINT“IN SINGOLA PRECISIONE 6/7=";X/Y 

40 PRINT“IN DOPPIA PRECISIONE 6/7=”; 
CDBL(X)/CDBL(Y) 


Si ottengono questi risultati: 


IN SINGOLA PRECISIONE 6/7= .857143 
IN DOPPIA PRECISIONE 6/7= .8571428571428571 


Si noti che in singola precisione l’ultimo numero è 
arrotondato. 


CH funzione 


Nel Basic dell’Atom Acorn la funzione CH identi- 
fica il codice ASCII del primo carattere di una strin- 
ga. Per esempio PRINT CH“ACORN” stampa il nu- 
mero 65 (il codice ASCII di A). 

Vedi ASC. Ml 
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Sono usciti i nuovi volumi 
dell’Encyclopedia for the 
TRS-80 


Ora la raccolta è completa 


L’Encyclopedia for the TRS-80 è la maggior fonte mondiale 
di informazioni sul TRS-80 mod. I e III. Tutti i dieci volumi 
contengono programmi pratici e articoli progettati per portare 
voi e il vostro computer al di là dei limiti imposti dai manuali 
del costruttore, in un nuovo e affascinante mondo. 

Ogni volume contiene tra 15 e 20 articoli accompagnati da 
diagrammi e listati di programmi. Gli articoli toccano tutti gli 
argomenti più interessanti: utility, didattica,’ business, word 
processing, hardware, grafica, giochi e molti altri. 

Pensateci! Più di 150 programmi per 200.000 lire, il prezzo 
dell’intera raccolta in 10 volumi. 


Cos’è l’Encyclopedia Loader? 


Sono 10 cassette del tipo C30, contenenti tutti i programmi 
dell’Encyclopedia for the TRS-80. L’Encyclopedia Loader vi 
permette di caricare i programmi velocemente e con facilità, 
risparmiando le ore di tempo necessarie per la battitura e la 
correzione degli errori. 


Spedire a 
COMPLETO SOFTWARE 
Via Bonporti 36 
35141 PADOVA 


Per ordinare l’intera raccolta a 
prezzo speciale 


O Encyclopedia for the TRS-80 
Volumi 1-10 L. 200.000 


Per ordinare singoli volumi 
(indicare i numeri dei volumi) 


© Encyclopedia for the TRS-80 


volumi ‘ 
L. 23.000 al volume 


© Encyclopedia Loader © Encyclopedia Loader 


Volumi 1-10 L. 250.000 volumi 


L. 28.000 alla cassetta 


Spese di spedizione e imballo gratuite 
Totalelite ..::1-ccrrcerrrccr ra crcriireziogn nizza nici 
O contrassegno 

© con un assegno qui allegato 

© versando l'importo su c/cp 16915357 intestato a Completo Software 


che pagherò 


Nome e cognome 


Indirizzo 


Cap, località 


Grafica Ferdi Arzenton 


Grafica tridimensionale 
con APPLE 


Questo programma, 
per Apple II con 48 K, 
permette di tracciare 
disegni e di ruotarli, 
ingrandirli, ridurli, 


spostarli sullo schermo 


di Mark Pelczarski 


Questo programma è disponibi- 
le su disco. Vedete nelle ultime 
pagine il “Servizio Programmi”. 


Traduzione di S. Ventura 


e parole che state leggendo 
| su queste pagine sono scritte 

su una superficie a due di- 
mensioni, ma, se date un’occhiata 
intorno, vi accorgete subito che il 
mondo che ci circonda ne possiede 
una terza: la profondità. Pensate 
ora di osservare lo schermo di un 
computer: le immagini vi appaiono 
su una superficie bidimensionale. 
Eppure sullo stesso schermo potete 
assistere a spettacoli televisivi o 


film che danno la sensazione della 
profondità. Quando i personaggi 
sullo schermo si allontanano, la lo- 
ro immagine diventa più piccola, 
mentre quando si avvicinano si in- 
grandisce. 

Il programma presentato in que- 
sto articolo gira su un Apple II con 
48 K di RAM, minifloppy e lin- 
guaggio Applesoft. Esso vi permet- 
te di tracciare disegni che potete 
ruotare, ingrandire, ridurre o muo- 


finestra 


Figura 1. Proiezione di un oggetto tridimensionale su una superficie. 


vere in quelle che sullo schermo 
appaiono come tre dimensioni. Il 
programma è stato scritto in Basic, 
quindi non aspettatevi di ottenere 
animazioni veloci; è però molto 
preciso e facile da usare. 


Proiezione di immagini 
tridimensionali 
Per cominciare, diamo un’oc- 


chiata alle tecniche di rappresenta- 
zione di oggetti tridimensionali in 


uno spazio a due dimensioni, quale ‘ 


è uno schermo televisivo, senza cu- 
rarci eccessivamente degli aspetti 
matematici del problema, almeno 
per il momento. Pensate allo scher- 
mo del vostro monitor come ad 
una finestra, e ad alcuni oggetti tri- 
dimensionali reali al di là del vetro. 
Meglio ancora, trovatevi una fine- 
stra e una matita grassa. Sedetevi 
abbastanza vicini da poter raggiun- 
gere il vetro e disegnate il contorno 
di quello che vedete fuori dalla fi- 
nestra con la matita (assicuratevi, 
però, di poter cancellare in seguito 
quello che disegnerete). Dovretè 
trovarvi, alla fine, con una rappre- 
sentazione a due dimensioni (la su- 
perficie della finestra) della vista 
esterna; dovrebbe anche essere 
gradevolmente accurata, 0, come'si 
dice nel gergo della grafica 3-D, in 
“prospettiva reale“. 

Come funziona il procedimento, 
e come si può tradurlo in un pro- 
gramma per computer? Osservate 
il disegno in figura 1. La luce viag- 
gia in linea retta dall’oggetto reale, 
attraverso la finestra, fino ai vostri 
occhi (si trascura la rifrazione nel 
vetro). Dove le linee incontrano la 
finestra si ottiene il profilo del 
mondo all’esterno, proiettato su 
una superficie a due dimensioni. 
La stessa cosa accade sulla pellico- 
la di una macchina fotografica. La 
chiave matematica sta nel fatto che 
ci sono dei punti da una parte di un 
piano, congiunti con rette a un solo 
punto dalla parte opposta del pia- 
no, e, dove queste linee interseca- 
no il piano, si forma la proiezione 
bidimensionale. I punti dalla prima 
parte sono gli oggetti, mentre il 
punto dall’altra parte rappresenta i 
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vostri occhi, il piano è la finestra e 
le linee sono la luce. 


Assegnamento della memoria 


Ci servono alcune strutture per 
rendere eseguibile col computer il 
procedimento appena visto. Defi- 
niremo i nostri oggetti come figure 
formate da segmenti. Memorizze- 


Figura 2. Assi. 


PIPA WWER 
curo unOo dè 
nurosvvoeo 
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remo un gruppo di punti come 
coordinate tridimensionali: X, Y e 
Z. Per restare vicini a quello che 
già sapete della grafica sullo scher- 
mo, X sarà la misura, da sinistra a 
destra dello schermo, della lar- 
ghezza, Y misurerà l’altezza dal 
basso verso l’alto e Z rappresente- 
rà la profondità, dalla superficie 
dello schermo verso il retro del- 
l'apparecchio (vedi figura 2). Il 
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Figura 3. Punti e linee per il cubo di figura 2. 


punto (0,0,0) sarà il centro dello 
schermo. (Chi è pratico di rappre- 
sentazioni in coordinate 3-D noterà 
che gli assi sono ruotati di 90° in- 
dietro rispetto alla normale orien- 
tazione, per poter definire Z come 
profondità.) 

I punti che vengono memorizzati 
sono semplicemente gli estremi dei 
segmenti. Non è necessario memo- 
rizzare ciascun punto del segmen- 
to, poiché in proiezione le linee 
congiungeranno ancora i loro ri- 
spettivi estremi. Oltre alle coordi- 
nate dei punti verrà memorizzata 
anche una lista di linee. Queste sa- 
ranno identificate dai loro estremi, 
una specie di connessione da punto 
a punto in 3-D. La figura 3 mostra 
come viene memorizzato il cubo di 
figura 2. 


In un Apple con 48 K di memo- 
ria c’è abbastanza posto per memo- 
rizzare comodamente 500 punti e 
750 linee, definiamo, perciò, lo 
spazio di memoria in questo modo: 


X(499) coordinata x di ogni pun- 


to da 0 a 499 

Y(499) coordinata y di ogni pun- 
to 

Z(499) coordinata z di ogni pun- 
to 

L%(749,1) estremi delle linee da 


0 a 749; L%(1,0) è un 
estremo della riga i- 
esima, L%(1,1) è l’altro 
estremo. 


Il segno “%” rende L% una va- 
riabile intera, che occupa 2 byte 
per elemento anziché 5 come una 
variabile in virgola mobile. 

Le coordinate di uno degli estre- 
mi della linea i-esima si trovano in 
questo modo: 


X(L%(1,0)), Y(L%(1,0)), 
Z(L%(1,0)) 


dove I è il numero della linca e 
L%(1,0) contiene l’indice del pun- 
to. 

In realtà il programma usa la 
matrice P(499,2) per memorizzare i 
punti, piuttosto che X,Y e Z. Se N 
è il numero di un punto, P(N,0) è 
la coordinata x, P(N,1) è la coordi- 
nata y e P(N,2) è la coordinata z. 
Questo accorcia parti del program- 


ma permettendo l’uso di cicli, ma 
nel corso di questo articolo usere- 
mo X, Ye Z. 


Mettiamo un oggetto sullo schermo 


Tutti gli elementi necessari sono 
là: i punti sono memorizzati, lo 
schermo è il piano xy, e i vostri oc- 
chi sono in qualche luogo al di fuo- 
ri, dalla parte negativa dell’asse z 
(nel programma, D1 rappresenta 
questa distanza). Quando ho co- 
minciato questa parte del program- 
ma, pensavo che ci fosse qualche 
grossa difficoltà matematica impli- 
cita. Dopo giorni di consultazione 
di vecchi testi di matematica, tra 
equazioni a tre dimensioni, equa- 
zioni dei piani, tecniche per trova- 
re l’intersezione tra linee e piani, 
formule per trovare i punti proiet- 
tati, arrivai ad una relazione piut- 
tosto semplice: la proporzione. 
Avete bisogno delle coordinate X e 
Y sullo schermo e avete a disposi- 
zione le coordinate X, Y e Z del 
punto che volete proiettare. Le li- 
nee mostrate in figura 4 formano 
due triangoli simili. Potete calcola- 
re X e Y separatamente; la figura e 
le formule che seguono mostrano 
come calcolare Y. 


M _ _ proiezione di Y 
DI +Z DI 
da cui 


occhio 


Y*D1 


iezione di Y= —_ 
proiezione di ESA 


Questi calcoli vengono eseguiti 
nelle righe 4385 e 4390 del pro- 
gramma. Qui però ho già cambiato 
DI1 in VZ, che compie alcuni cam- 
bi di scala per rendere le dimensio- 
ni compatibili con quelle dello 
schermo. TR è il punto traslato 
sullo schermo. Fatto questo con le 
coordinate X e Y di ciascun estre- 
mo, viene disegnata una linea che 
connette i punti traslati. Il procedi- 
mento viene ripetuto per ogni 
gruppo di punti di ogni linea. 


Divertiamoci muovendo gli oggetti 


Guardare solamente un oggetto 
tridimensionale sullo schermo non 
è granché eccitante se non potete 
farci qualcosa, come muoverlo o 
girarlo per vederlo da un’altra an- 
golazione. E più divertente poter 
vedere sullo schermo qualcosa che 
assomigli ad esempio alla macchina 
sportiva che sta girando l’angolo 
dalla finestra. Prima ne vedete il 
fianco, poi il muso che gira, quindi 
diventa più grande (o meglio sem- 
bra) mentre si avvicina, e prosegue 
la sua corsa. 

Ci sono due modi di vedere altre 
angolazioni di un oggetto: muovere 
l’oggetto o spostare il punto di vi- 
sta. Muovere l’oggetto implica il 
cambiamento di tutte le coordinate 


Figura 4. Proiezione di y sullo schermo. 
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che lo compongono. Muovere il 
punto di vista sembra richiedere il 
Rotazione cambiamento di un solo punto, ma 
rende la traslazione in due dimen- 
sioni un po’ più lunga. Con questo 
programma è meglio spostare l’og- 
getto, poiché, in seguito, trattere- 
mo il problema della presenza con- 
temporanea di più di un oggetto 
sullo schermo e del loro movimen- 
to indipendente (come, per esem- 
pio, muovere una scatola che sta 
sopra ad un’altra). 

Esistono tre tipi di operazioni 
che possiamo compiere su un og- 
getto: rotazione, spostamento e 
cambio di scala. Ogni operazione 
influisce in qualche modo sulle 
coordinate di ogni punto memoriz- 
zato. Nessuna di loro, invece, ha 
effetto sulla lista delle linee, visto 
che il loro scopo è semplicemente 
di congiungere i loro estremi. 


Centro esterno 


Centro interno 
Spostamenti 


Spostare un oggetto significa 
muoverlo in una direzione ed è l’o- 
perazione più semplice da fare. 
Possiamo spostare un oggetto a si- 
nistra o a destra semplicemente 
sommando un numero positivo o 
negativo, rispettivamente, a ogni 
sua coordinata x. Per spostare in su 
o in giù si aggiunge alla coordinata 
y di ogni punto il valore dello spo- 
stamento e per spostarlo in avanti 
o indietro (verso o lontano da voi) 
Centro esterno si deve modificare la coordinata z. 
L’effetto sullo schermo quando un 
oggetto viene spostato a destra, a 
sinistra, in su o in giù è di muovere 
l'oggetto in quella direzione, ma 
anche di aumentare o diminuire la 
porzione laterale vista. Si può pa- 
ragonare alla vista che si ha di un 
palazzo proprio di fronte oppure 
da un po’ più lontano di lato sulla 
strada. Da lontano non vedete solo 
la facciata, ma anche una parte del 
lato. Spostare un oggetto avanti e 
indietro lo farà apparire più grande 
0 più piccolo, come accade con gli 
Figura 5. Rotazione e cambiamento di scala con centri all’interno e all'e- oggetti reali quando state più vicini 
sterno dell’oggetto. o lontani da essi. 
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Cambiamento di scala 


Centro interno 


Cambiamento di scala 


La rotazione e il cambiamento di 
scala pongono un nuovo problema: 
entrambe richiedono un punto di 
riferimento. Nel cambio di scala 
esiste un punto che rimane inalte- 
rato. Per la rotazione, invece, ave- 
te bisogno di un punto attorno al 
quale far ruotare l’oggetto. In en- 
trambi i casi è opportuno che que- 
sto punto coincida con il centro 
dell’oggetto. La figura 5 mostra de- 
gli esempi di entrambe le operazio- 
ni, ognuna fatta prima con il punto 
di riferimento all’esterno dell’og- 
getto, poi all’interno. Nella mag- 
gior parte dei casi se il punto si tro- 
va all’esterno dell’oggetto l’opera- 
zione provoca la fuoriuscita del- 
l'oggetto dallo schermo. Per risol- 
vere questo problema, prima di 
ogni altra operazione il programma 
calcola il punto centrale di ogni fi- 
gura. Ciò avviene nelle righe 3032 - 
3038 calcolando la media tra il più 
piccolo e il più grande valore della 
coordinata x, poi ripetendo i calco- 
li per le altre due coordinate; le va- 
riabili CR(0), CR(1) e CR(2) con- 
tengono i valori delle coordinate 
X, Y e Z del centro così calcolato. 

Per cambiare scala ad un ogget- 
to, il passaggio principale consiste 
nel moltiplicare ogni coordinata 
per un fattore di scala, per esempio 
2 per raddoppiarne le dimensioni. 
Eseguendo questa operazione per 
il cubo di figura 2 e figura 3, tutti i 
5 vengono trasformati in 10, rad- 
doppiando la lunghezza dei lati. 
Senza far riferimento a un centro, 
tuttavia, è possibile anche far spa- 
rire gli oggetti, cioè farli uscire dal- 
lo schermo. Il centro apparente per 
una moltiplicazione diretta è il 
punto (0,0,0). Per incorporare il 
vostro centro (quello calcolato) 
nell’operazione di cambio scala do- 
vete: 

1 Sottrarre le coordinate del cen- 
tro da ogni punto. Questo trasfor- 
ma la figura in un’altra identica che 
ha il centro in (0,0,0). 

2 Moltiplicare ogni coordinata 
per la costante di scala. Questa 
operazione cambia la scala della fi- 
gura con centro in (0,0,0), ora al 
suo interno. 


Listato 1. 


REM GRAFICI 
LOMEM: 
DIM © 


LUOTHEN 


Ti 
PR 
h cs 


GOIn 


“pp, “pa 


-1 RO e IR 
) THEN F 

PERIRKT 
GOTO 180 


) THEN 196 
INSTANT 
DIRO 
TNEA #5 Ta I=t#C-ls 
THEN 1E 
INFUIFIALI AbralizCÈ, dd 
ACI, TA)+C1-1s MEXT=s 


CON CHE NOME" 


INTONF= 


da VRRINT ETTI: 
i PRINT PEG%(I,I1l)3 NEXT T1,1 
È) ROTISO TO 2: 
IO MERITO DI 
NL=13 PRINT LACI,OYs 
PRINT LAI, 1) NEXT 


sì 


La terza possibilità, rotazione at- 
torno all'asse x, produce un movi- 
mento alto/basso dell’oggetto. In 
questo caso è la coordinata x che 
non varia. Le formule sono: 


nuovo Y = cos a*Y — sen a*Z 
nuovo Z = cos a*Z + sen a*Y 


Se studiate queste equazioni, no- 
terete come i segni + e — dipenda- 
no dalla direzione cui assegnate 
angoli positivi. Ciò dipende dal 
fatto che l’opposto di un angolo 
ha lo stesso coseno dell’angolo 
considerato (cos(—a)=cos a) men- 
tre i seni hanno valore opposto 
(sen(-a)=—sen a). Nel program- 
ma vengono assegnati valori nega- 
tivi agli angoli che vanno in giù, a 
sinistra e in senso orario, mentre 
hanno valori positivi gli angoli che 
vanno in su, a destra e in senso an- 
tiorario. Tutto ciò viene gestito in- 
ternamente; l’utilizzatore deve spe- 
cificare solo la direzione (righe 
6075 - 6110). 

Prima di una rotazione, dobbia- 
mo effettuare sul centro la stessa 
operazione fatta per il cambio di 
scala, altrimenti la rotazione farà 
girare l’oggetto intorno agli assi 
principali dello schermo, anziché 
su se stesso. La prima cosa da fare 
è sottrarre le coordinate del centro 
da tutte le altre coordinate dell’og- 
getto. A questo punto si possono 
applicare le formule trigonometri- 
che appropriate per ruotare l’og- 
getto attorno a uno degli assi. Per 
ultima cosa si devono sommare le 
coordinate del vecchio centro alle 
coordinate dell’oggetto ruotato per 
riportarlo nella posizione originale. 


Distorsioni 


C'è un'ulteriore operazione nel 
programma chiamata distorsione. 
Una distorsione consiste nel cam- 
biare scala all'oggetto in una di- 
mensione: larghezza, altezza o pro- 
fondità (rispettivamente coordinate 
X, Y o Z). L'effetto prodotto con- 
siste nell’allungare o accorciare la 
figura in quella dimensione. Par- 
tendo da un cubo, per esempio, 
potete distorcere ciascuna dimen- 
sione, ottenendo un parallelepipe- 
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Segue listato 1. 


2830 
28945 
2955 
2860 
2B62 


2870 
2875 
2900 
2905 
Z910 


2920 
2930 


DE 


AAA 


305 O 
3060 


10 


4102 


4110 
4130 


4200 


IF NF=1 THEN CF=0: RETUEN 

INFUT "QUALE FIGURA? "fé: I=0 

IF FT$(I)=A® THEN 29270 

I=I+1: IF ISNF THEN 2855 
FRINT"NON NE HAI NESSUNA CHIAMATA 


PFPRINT"“BATTI UN TASTO>":: GET A$: 
RETURN 

CF=I 

RETURN 

IF NF“2 THEN C=1: GOTO 2910 
INFUT"1-TUTTE O 2-UNA? "0 

IF_C=1 THEN FS SP=0: EP=NP=1r SL=0s 
EL=NL-1: GO0T0 

IF C* THEN 29€ 


GOSUB 2820: FS= 
EP=F6G%(CF,1): SÌ 
FOR ) TO 2: 
FOR I=SF TO EF 
FOR Ii=0 TO 2 
TETP(IILYCCRCTI) 
TERREI) SIGLE) 
NEXT I1,I 
FOR I=O TO 2: CRIID)=(CRCI)+T(I)) 
IF VS=1 THEN 3140 
VS=1: DI=0 

I =SP_TO EF 
FOR I1=0O TO 2: 
VZ=VZ+(CR(I1)-P(I,T1)) SFr NEXT: VZESORCOVZ) 
IF VZ=D1 THEN Di=v7z 


SP=FG% (CF, 0 
FG%(CF,2): El 
CR(I)=999: T(I)= 


THEN CRC 
THEN T(I1 


VZ=-Z0%DI 

C=4: RETURN 

FOR I=SF TO EF 

IF C=4 THEN 4380 

TO POISII)S=F(AT, 
CI MII) NEXT 

ON C GOTO 4130, 47 

TEL SCRERCIa 1) -S1% 


TLYSERETLIYE 


È $ ASOIFO 
BS1%P (I, 12) : 
+51%4P (1,0) GOTO 435 
SIEPI, I)a 
BSI*P( : 
THEN T(S1-1) i 
TO TID= a DI) *Mr NEXT 


PIT,II 


Maia) 


ARIE CRCII 
LONDOKD1» 


ZI (VZ-F(1,2)) 


XFP(1,0)s: TECI, 1) n13) 
URN 
THEN HCOLE » GOTO 


THEN HG 


FOR I=SL TO EL 
SUY=0 
FOR 11=0 TO 1 


TEO LASCIA TIIC 
GOTO 
X(I1) 


OUOR LA, T49 


RELXCI,T1) 0) ACT: 


(segue) 


3 Sommare le coordinate del 
centro della figura originale ad 
ogni coordinata della figura. Con 
ciò il centro della figura modificata 
torna nella posizione di partenza, 
ma la figura è stata modificata 
esternamente ad esso. 


Rotazioni 


Le rotazioni, come i cambi di 
scala, hanno bisogno di un centro. 
Quando parliamo di direzione del- 
la rotazione, ci riferiamo a quella 
della parte dell’oggetto che vi è più 
vicina (quando la parte frontale gi- 
ra verso sinistra, ad esempio, il re- 
tro gira a destra; chiamiamo questa 
la “rotazione a sinistra”). La rota- 
zione può avvenire intorno a uno 
qualsiasi dei tre assi. Ruotando at- 
torno all’asse y l’oggetto gira a sini- 
stra o a destra, come una porta che 
si apre. La rotazione attorno all’as- 
se z muove l’oggetto in senso ora- 
rio o in senso antiorario, come le 
lancette dell’orologio. 

In ogni caso, se come esempio 
prendiamo una rotazione attorno 
all’asse z, tutte le coordinate z ri- 
mangono le stesse (rotazione in 
senso orario e antiorario non fa 
differenza: la profondità di ogni 
punto rimane inalterata). Potete 
pensare che il vostro oggetto sia bi- 
dimensionale, visto che le coordi- 
nate z non vengono coinvolte. Le 
coordinate x e y variano secondo le 
regole classiche della trigonome- 
tria. Le formule hanno a che fare 
con il seno e il coseno dell’angolo 
di rotazione a e sono le seguenti: 


nuovo X = cos a*X = sen a*Y 
nuovo Y = cos a*Y + sen a*X 
(nuovo Z = Z) 


Poiché la rotazione avviene in- 
torno all’asse z, la figura sullo 
schermo ruoterà in senso orario 0 
antiorario, a seconda dell’angolo. 
Un angolo positivo provoca una 
rotazione antioraria. 

Allo stesso modo, le rotazioni 
intorno all’asse y (destra/sinistra) 
non hanno effetto sulle coordinate 
y (altezze degli oggetti sullo scher- 
mo). Le relative formule sono: 


nuovo X = cos a*X — sen a*Z 
nuovo Z = cos a*Z + sen a*X 
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2896 
288 
300 
ZOl 


ZOR 


2000 


2010 


FRINT D&; "CLOSE "AF 


RETURN 

ONERR GOTO 302 

INFUT"CHE NOMES":As: GOTO 304 

PRINT A&;" NON E® SUL DISCO": PRINT 
“SBATTI UN TASTO>": GET As: FOEE Z165,0r 
GOTO 70 

PFRINT"VUOI TENERE "3: A$:" COME NOME "3: 


INFUT FT$ (NF) 
IF LEFT$(FT& (NF), 1)="5" 
GOTO 308 

IF LEFT#(FT$ (NF) 1) ‘N THEN 
INFLUT"NUOVO NOME?" FT$ (NF) 
FRINT: FRINT D$: "OPEN":A& 
PRINT Dss "READ"; A$ 
INFUT TO): INPUT TID=s 
IF T(2)<2 THEN Ss1 

FOR I=sNF+1 TO NF+T (2) 
INFUT FT$(1) 
FOR Ii=0 TO 1: 


THEN FT®(NF)=A$: 


INPUT T (2) 


INFUT FEX(I, IT) 


FG%(I,I1)=FG%(I,I1)+NF: NEXT 

FOR I1=2 TO 3: INPUT EGXCI, I): 
FGZ(IyI1)=FG%(I,Il)+NL: NEXT I1,I 
FOR ISNF TO NF+T(0)-i: FOR Ii=0 TO 2: 
INFUT PCI, IT): NEXT I1,I 

FOR I=NL TO NL+T (1-1: FOR Ti=ò TO 


INFUTRICAGIOIIO E CELA RENPE 


NEXT 11,1 
FE% (NF,0) NP: FG%NF, 1) SNP+T (0) =1e 
NE=NF+T FOUR NF,S 


EGX NF, S 
NF=NF+T 2) +1s 
PRINT Ds; "CLOSE": A$ 
POKEESSIO, RETURN 

NL=0r NF=O: VS=Or O 
INFUT"CON CHE NOMES "86 
PRINT D#$; "ESAVE"r:A61",A9192,La1 
RETURN 

HOME: TEXT: CF=NF: NF 
"NOME DELLA FIGURA? 
FG (CF,2)=NL: PRINT 
"RATTI ?F° QUANDO NON CI 
ONERR GOTO 10109 
PRINT"PUNTO #"sNF-FG%(CFO) +18 INPUT"Xe "Aff 
IF LEFT$(A8$,1)="F" THEN FGX (CF, 1) =NMP-1a 

GOTO 2000 


IF+1: INPUT 
3FT&(CF)s FGU(CF,O)=NP: 


SOND, PIU? PUNTI. "a 


IF ASC(A$) 357 THEN 1010 

F(NP,0)=VAL (A$) o INFUT"Y:"gPNP, 1) INPUT 
"Zi PUNP,2) NP=NP+1: GOTO 1010 

FRINT 

"RATTI ‘E° QUANDO NOM CI SONO FIL” LINEE." 


QNERR GOTO 2010 

PRINT'LINEA #"rMNU-F6% (CF, S) +18 
"DAL PUNTO #"3f 
IF LEFTCAS,1) * THEN FGXICE 
FORE 216,08 GOTTO 70 
TF_ASC(AS) #57 THEN 
L% (NL O) =VAL CAS) È 
INFUT"AL PUNTO #"s1% (NL, 1): FOR 
ILA (NL, TY) =L% (NL, TI) +FG% (CEL O) La 
NL=NL+1: GOTO 2010 


TNFUT 


2010 


I=0 TO le 
MEXTI 


(segue) 
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do di qualsiasi misura. Grazie a 
questa operazione, potete creare, 
con poche figure di base, una infi- 
nita varietà di forme senza doverle 
definire una ad una. 


Progetto del programma 


Le principali opzioni in questo 
programma permettono di creare e 
editare le figure, osservarle e mani- 
polarle, salvarle per usi futuri e ca- 
ricarne di già esistenti. Altre opzio- 
ni incluse nel programma compren- 
dono la capacità di cancellare tutte 
le figure dalla memoria per riparti- 
re da capo, e di salvare su disco le 
immagini bidimensionali che ap- 
paiono sullo schermo. x 

È prevista anche la possibilità di 
avere più di una figura contempo- 
raneamente in memoria. Ciò è sta- 
to possibile facendo in modo che 
parecchie piccole figure possano 
essere create, caricate da disco e 
manipolate separatamente, compo- 
nendo una figura complessa, costi- 
tuita da tutte le piccole figure me- 
morizzate. 

Questa figura può essere salvata, 
con tutte le piccole figure come 
suoi particolari. Le informazioni 
sulle figure piccole sono mantenute 
intatte, così quando viene richia- 
mata la figura grande, quelle picco- 
le possono ancora essere manipola- 
te indipendentemente. 

Per permettere questa capacità, 
sono stati usati altri due vettori 
supplementari: uno per i nomi del- 
le figure in memoria e l’altro che 
contiene le informazioni sui primi e 
ultimi numeri dei punti e le prime 
e ultime righe di ogni figura. Il vet- 
tore dei nomi è FT$ e permette di 
memorizzare fino a cento nomi (0 - 
99). La matrice delle informazioni 
è dimensionata FG% (99,3). Il 99 
permette di memorizzare fino a 
100 figure. Se I è il numero della 
figura, FG%(1,0) è il punto di par- 
tenza della figura, FG%(1,1) è il 
punto finale, FG%(1,2) è la prima 
linea e FG%(1,3) è l’ultima. Come 
esempio se la figura A avesse 8 
punti (0-7) e 12 linee (0-11), e se la 
fig. B avesse 4 punti (8-11) e 4 li- 
nee (12-15), il punto di partenza di 
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Segue listato 1. 


5060 
S070 
3090 


S270 


280 


5290 


6000 


6038 
6040 
5050 
6060 
6065 
6070 
6071 


H07A 
6074 
6075 


6090 


6110 


6130 


6142 


6200 


VITL)=TR(L%(I,I1) 1) CT 
NEXT 

FOR I1=0 TO 1 

IF SW=1 THEN 
IF ABSIXC(I1)) 
IF ABS(Y(I1)) Si THEN SISO 
IF Y(0)=Y 1) THEN 5 
YC=SGN (Y(I1)) x95: 
KO (YO-Y CLI) K(X (O) -XC(1))/ (YO) Y CADEY 
IF ABS(XC) THEN 
IF X(D)=X(1) 


70 


39 THEN 5190 


230 


KEO-X CLI VR IVO) SY (L)I/ (XE) SX CL) 
IF ABS(YO) <=95 THEN 52 
GOTO 
IF ABS(Y(11\3}<=95 THEN S270 
IF Y(0)=Y (1) THEN 5230 

"BGN (Y (11) ) x95: 

= (YCY CLI) KE (X (O) TX (1))Z 
ABS(XE EG 

GOTO È (e) 

)=XC: VUTL)=YC 


DEVIATO 


to) 


VCO) VCI) )AXCL) 


IF SW=0 THEN HFLOT 140+X (0) ,96-Y(0) TO 140+ 
X(1) L96-Y(1) 

NEXT: RETURN 

HOME: VTAB 21: FRINT"1-RUOTA 
#- SCALA OGGETTO 4-DISTORCE  S-MUCOVE 
ENTRO 7-MENU 8 SCHERMO Vie 
IF FS=0 THEN FRINT"9-SCALA SCHE 
INPUT C: IF FS=0 AND D 
ON C GOTO 4075, 4142, 407 
6070, 6250 } 


2-SPOSTA 
6°C 


CALTEZZA 
THEN 6071 


'IMOLTIFLICAI 


ETUEN 


HOME: VTAB 21: FR] TR I=INOR 
ASSO IN ALTO YA SINISTRA 4-A DI Fi 
“IO OUANTIORARIO":s INFUT Cr 


41 i C56 THEN 6075 
INFUT "ANGOLO (0 — 180) ® o "rQM: 
180. THEN 64090 


IF_INT(C/2) %2 
S1I=SINIAN): 
RETURN 
HOME: VTAB 
INISTRA 


THEN ANS 
CAM) e 


ui 


IRE OR E: 
INFUT"DI DUI 
TE EMI 


MEXTE C=4r 
RETURN 
PRINT"FUNTO # 


Gi" Pe Seti Mes DMBUT DI 


(segue) 


B sarebbe 8, quello finale 11, la 
prima linea sarebbe 12 e quella fi- 
nale 15. 

Nel programma le linee 5 - 86 
inizializzano la memoria e sotto- 
pongono all’utilizzatore le opzioni 
principali LOMEM è posto a 
16384, così che le variabili non in- 
terferiscano con la pagina grafica 
ad alta risoluzione. Nelle matrici 
delle dimensioni, T, X e Y sono 
usate come variabili temporanee e 
TR, la sola matrice non ancora 
menzionata, conterrà i valori delle 
coordinate tridimensionali traslate 
in due dimensioni. 

Tutte le subroutine che riguarda- 
no la creazione, la modifica, il cari- 
camento e il salvataggio delle figu- 
re vengono considerate routine di 
servizio, separate dal corpo princi- 
pale del programma che permette 
di vedere e manipolare le figure. 
Queste routine sono nelle righe da 
170 a 2020. La routine che crea 
nuove figure è posta da 1000 a 
2020. L’utente batte per primi i 
punti, poi le linee. Quando ha fini- 
to di battere i punti (coordinate X, 
Y, Z) scrive F per “fine”. A questo 
punto vengono inseriti i numeri de- 
gli estremi delle linee, seguiti di 
nuovo da una F al termine di que- 
sta fase del programma. 

La subroutine che “edita” le fi- 
gure è nelle righe da 170 a 239. 
Permette all’utente di vedere i 
punti e le linee che compongono le 
figure e di modificarne i valori a 
suo piacimento. Mentre state dise- 
gnando una figura nuova, può es- 
servi conveniente inserire alcuni 
punti fittizi a cui non verranno col- 
legate linee, nel caso possano ser- 
vire in seguito. Nello stesso modo 
potete inserire linee fittizie (per 
esempio una linea che connette un 
punto con se stesso) per un even- 
tuale uso futuro. 

Le altre routine in questa sezio- 
ne di programma servono a salvare 
una figura (righe 250 - 288), cari- 
carne una (righe 300 - 336), riini- 
zializzare le variabili (riga 350) e 
salvare l’immagine dello schermo 
(righe 400 - 420). 

Ci sono poi un paio di altre su- 
broutine che seguono quelle elen- 
cate, che permettono di scegliere la 


Segue listato 1. 


-SP+1 TH 
I=0 TO 2: 


BET 


INFUT"MOLTIFLICARE PERS 
RETURN 


figura da editare o manipolare, e 
che compiono i calcoli necessari 
per la visualizzazione delle figure. 
Le righe da 2800 a 2875 permetto- 
no di inserire il nome di una figura 
da editare o manipolare. Dalla riga 
2900 alla 2930 troviamo la routine 
che permette di scegliere tra la ma- 
nipolazione di singole figure o del- 
l’intero insieme di oggetti, asse- 
gnando i valori appropriati alle va- 
riabili in rapporto alle vostre rispo- 
ste. NP, NL e NF sono i numeri, 
rispettivamente, dei punti, delle li- 
nee e delle figure. SP e EP sono gli 
scelta, mentre SL e EL puntano al- 
le lince iniziale e finale. 


Visualizzazione 


Ci sono alcune subroutine dedi- 
cate esclusivamente alla procedura 
di visualizzazione delle figure. Le 
righe 120 - 165 controllano questa 
procedura. Per primi devono esse- 
re eseguiti i calcoli relativi al cen- 
tro e alla distanza dell’osservatore. 
La subroutine 2900 - 3140 svolge 
questi calcoli, come abbiamo già 
visto. In un ciclo vengono svolte le 
seguenti funzioni: vengono calcola- 
te le posizioni dei punti e tradotte 
nelle coordinate dello schermo, 
vengono tracciate le linee, l’utente 
sceglie l'operazione che desidera 
venga compiuta, vengono cancella- 
te le linee, quindi il ciclo riprende 
calcolando i nuovi punti, disegnan- 
do le linee, ecc. Ogni processo vie- 
ne svolto da una particolare su- 
broutine. I punti vengono calcolati 
e trasposti nelle righe 4000 - 4400. 
Il ciclo in questa subroutine parte 
dal primo punto della figura e fini- 


AB: 


(1) =P(0, DD: 


NEXT: 
PDKEE-1 


ai 


sce con l’ultimo, svolge l’operazio- 
ne scelta (C contiene il codice del- 
l’operazione), poi traduce il punto 
nelle sue coordinate bidimensionali 
e le memorizza nella matrice TR. 
Dopo aver elaborato ciascun pun- 
to, la subroutine ritorna al pro- 
gramma principale. 

Le righe da 5000 a 5290 traccia- 
no o cancellano le righe sul video. 
SW e FS sono dei commutatori lo- 
gici che stabiliscono quale compito 
debba essere svolto. Se SW è ugua- 
le a zero, la subroutine cancella le 
linee una alla volta, mentre se FS è 
zero, viene cancellato tutto lo 
schermo e vengono tracciate le 
nuove linee. Se sia FS che SW so- 
no uguali ad uno, allora vengono 
tracciate solo le nuove linee (FS=1 
se viene modificata una sola figura; 
in questo modo non vengono can- 
cellate le altre figure durante il mo- 
vimento). Anche questa subroutine 
compie un ciclo tra la prima e l’ul- 
tima riga, determinando gli estremi 
tramite la matrice TR, poi control- 
la che la linea stia entro i limiti del- 
lo schermo. La sezione da 5070 a 
5270 controlla che ogni estremo 
stia dentro allo schermo e cerca, se 
possibile, un segmento che vi sia 
contenuto. Questo evita i guai pro- 
vocati dalle eventuali parti della fi- 
gura che superano i bordi, sopra, 
sotto o di lato rispetto allo scher- 
mo. 

L’ultima subroutine, dove ven- 
gono prese tutte le decisioni, è po- 
sta nelle righe 6000 - 6300. E qui 
che viene mostrata la lista delle 
operazioni e vengono definite le 
costanti. Per facilitare l’uso del 
programma vediamo ora una lista 
delle possibili scelte: 

1. Ruotare Permette la rotazio- 
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ne della figura. Continuate fornen- 
do direzione e angolo. 

2. Spostare Muove una figura. 
Di nuovo dovete inserire la dire- 
zione e il numero di unità di cui la 
figura deve essere mossa. 

3. Scalare Cambia la scala della 
figura. Continuate inserendo la co- 
stante per la quale le dimensioni 
della figura devono essere moltipli- 
cate. La costante può essere un nu- 
mero intero o decimale. 

4. Distorcere Cambia la scala di 
una sola dimensione. Scegliete la 
dimensione (larghezza, altezza o 
profondità) e la costante moltipli- 
cativa. 

5. Muovere tuttolsolo una 
figura Permette di scegliere se le 
operazioni che seguono devono 
modificare tutto lo schermo o una 


sola figura. Scegliete poi quale fi- 
gura intendete modificare. 

6. Centro Permette di scegliere 
il centro attorno al quale deve ruo- 
tare la figura. Il centro viene utiliz- 
zato anche per cambiare la scala 
delle figure. Talvolta è conveniente 
mantenere uno specifico punto per 
le operazioni di rotazione e cambio 
scala successive. Con questo co- 
mando inserite le coordinate del 
nuovo centro. 

7. Menù Riporta alla routine 
principale di scelta. 

8. Schermo intero Permette di 
osservare l’intera figura sullo 
schermo fino a quando non viene 
premuto un tasto. 

9. Scala dello schermo Permette 
di cambiare la scala di ciò che ap- 
pare sullo schermo, senza cambiare 


Sinclair ZX 


B. & V. INTERFACE 
Via M. Bonavita n°35 -47100 FORLI" 
Tel. 0543/51247 


HARDWARE 


SIONI DI MEHORIA 
C ine da 4 Kbyte (scheda) 
KIT £.26.000+iva (con 1K) 
MONTATA £31.500+iva (con 1K) 


il valore delle coordinate in memo- 
ria. E come osservare gli oggetti 
con un cannocchiale anziché au- 
mentarne le dimensioni. È utile an- 
che per modificare l’effetto della 
prospettiva; accade come quando 
si osserva un oggetto da vicino 
(maggiore prospettiva apparente) 
oppure da lontano (minore effetto 
prospettico). Per avere più pro- 
spettiva, spostate l’oggetto molto 
vicino, e diminuite la scala dello 
schermo. Per diminuirla, allonta- 
nate l’oggetto e ingranditelo con 
questo comando. 


Questo programma dà una buo- 
na idea di come i computer simula- 
no la grafica tridimensionale, di 
quali operazioni si possono com- 
piere e di come ciò sia possibile. MI 


«PER ACCORCIARE | TEMPI» 


Espansione da 16 Kbyte con scatola — 
KIT £.74.000+iva 


MONTATA £. 92.000+iva 


Espansione da 32 Kbyte con scatola 
KIT £. 99.000+iva 


MONTATA £.120.000+iva 


del GRUPPO EDITORIALE 


ACCESSORI Generatore di caratteri program mabile. Es. alfa- 
beto minuscolo o disegni ad alta risoluzione. 

KIT _£.33.000 +iva MONTATO £.41.000+iva 

Slow per ZX B0/8_K_rom KIT_£.22.000+iva 

Kit inverse video per ZX BI £.9.000+iva i) 


SO FTWAR Unici programmi di contabilità, ma- 


gazzino, ammortamento, legge 373, 
controllo codice fiscale, e altri di topografia , più tante cassette e 
listati di giochi vari tra i quali magnifici giochi di movimento. 
Richiedete l'elenco dei programmi. 

PROSSIMAMENTE 

Tn preparazione alcune schede per ZX 80 e ZX 81, tra le 
quali: scheda parlante, interfaccia video grafica, porte di imput/ 
output con vari accessori ed espansione di memoria da 32 K per 


JACKSON 


é il seguente: 


r informazioni e prenotazioni. 

effettuato anticipatamente tramite vaglia 
rarico della B.& V.) oppure in contras- 

i a carico del destinatario) 
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Che rischi corre 
il vostro software? 


Le tecniche di 
protezione del 
software sono quasi 
sempre inefficaci. 
Solo con progetti 
diversi dei 
microprocessori si 
potranno creare dei 
dispositivi più sicuri 


di J. Commander 


tano i segreti del linguaggio 

macchina e si servono dei disas- 
semblatori e dei copiatori bit a bit, 
gli strumenti più efficaci del loro 
mestiere, rappresentano il tallone 
d’Achille degli imprenditori econo- 
mici nel campo della programma- 
zione dei computer. Le necessità di 
mercato spingono i programmatori 
a compiere ogni sforzo per difen- 
dere le proprie preziose creazioni, 
ed i pirati sembrano accettare di 
buon grado la sfida a chi scopre 
per primo i segreti di qualche siste- 
ma per la protezione del software. 
Sembra che il pirata di software e 
molti programmatori stiano viven- 
do, in questa gara, una nuova affa- 
scinante avventura. 

I programmatori di microcompu- 
ter, che sono abbastanza astuti, e 
talvolta addirittura geniali, hanno 
trovato centinaia di accorgimenti 
per proteggere i loro programmi. 
Ce n'è di tutti i tipi, semplici, sofi- 
sticati, imprevedibili e anche com- 
pleti. Molti programmatori utiliz- 
zano l’hardware o si servono di al- 
cune peculiarità della loro macchi- 
na. Ma alla fine tutti questi sforzi si 
rivelano inutili. 

Indipendentemente da come ci si 
pone di fronte al problema della 
protezione del software, può essere 
interessante studiare alcune delle 
tecniche più usate. Questa panora- 
mica sui trucchi per la protezione 
dalle copie non ha la pretesa di ri- 


Jesi di software, che sfrut- 


portare tutte le idee in ordine cro- 
nologico né vuol suggerire il meto- 
do per rendere vana questa o quel- 
la tecnica di protezione. Si propo- 
ne, invece, di mostrare come la 
protezione del software per micro- 
computer non possa mai essere as- 
solutamente sicura. Per raggiunge- 
re questo traguardo, ambito o me- 
no a seconda del punto di vista, bi- 
sognerà attendere una nuova gene- 
razione di microprocessori. 


Perché proteggere il software? 


Un accorgimento per proteggere 
il software è semplicemente un me- 
todo per rendere impossibile la ri- 
produzione di vari prodotti. Molti 
programmatori e commercianti di 
software si servono di queste tecni- 
che per prevenire la duplicazione 
abusiva di prodotti che hanno ri- 
chiesto investimenti considerevoli 
o ingente mole di lavoro. 

Un software irriproducibile è il 
sogno dei commercianti ma molto 
spesso un incubo per gli utenti. 
Questi infatti desiderano poter di- 
sporre di più copie di un certo pro- 
dotto, perché il software per sua 
natura si presta ad essere distrutto 
accidentalmente. Questo è il di- 
lemma della protezione del softwa- 
re. 

Le vie per risolverlo ci sono. I 
commercianti possono fornire più 
copie allo stesso prezzo, sostituire i 


pra 


dischi danneggiati a prezzo di costo 
o realizzare metodi di protezione 
che consentano la copiatura in nu- 
mero finito. Per l’utente queste so- 
luzioni sono soddisfacenti. 

Il grosso guaio dei commercian- 
ti, comunque, è che il software non 
si può proteggere completamente. 
Inoltre, i trucchi antiriproduzione, 
oltre ad essere solo uno 
“scherzetto” per i professionisti, 
daranno fastidio ad alcuni utenti 
legittimi. In questo senso i disposi- 
tivi di protezione del software sono 
come piume di pietra sulle ali dei 
commercianti. 


Accorgimenti per la protezione del 
software 


. Gli accorgimenti per proteggere 
il software sono grossomodo classi- 
ficabili in quattro categorie: quelli 
che dipendono dall’hardware, 
quelli per alterazione della proce- 
dura di caricamento, software che 
verifica le condizioni in fase d’ese- 
cuzione e quello che viene eseguito 
tramite un “filtro”. Tutti questi ge- 
neri di accorgimenti richiedono 
un'interazione tra software e hard- 
ware e questo è in definitiva il loro 
punto debole. 

; Ogni volta che si usa il software, 
viene chiamato in causa il micro- 
processore. I microprocessori, in- 
venzioni meravigliose, sono sem- 
plici e fedeli esecutori di istruzioni. 
Queste ultime possono però essere 
intercettate in molti modi. 

Le tecniche di modifica del for- 
mato in fase di caricamento sono il 
metodo di protezione più comune. 
Esse funzionano sia su nastri ma- 
gnetici che su floppy disk. Si basa- 
no su un principio concettualmente 
molto semplice. Molti microcom- 
puter caricano dati dal supporto 
magnetico utilizzando routine in 
linguaggio macchina contenute nel- 
la ROM (Read Only Memory). Ci 
si può servire di queste routine per 
caricare da nastro o disco uno spe- 
ciale caricatore non standard, che a 
sua volta verrà usato per caricare 
un programma. 

Lo stesso programma sarà scritto 
in modo da poter essere caricato 
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solo tramite il formato non stan- 
dard. Ad esempio, molte routine 
di caricamento da nastro effettua- 
no somme di controllo semplice- 
mente sommando i valori dei byte 
(caratteri) di un record quando 
vengono caricati in memoria e le 
confrontano con il valore somma 
contenuto nell’ultimo byte del re- 
cord. Se i due numeri sono uguali, 
il caricamento continua con il re- 
cord seguente; altrimenti viene se- 
gnalato un errore. Modificando la 
lettura della somma di controllo si 
può “ingannare” il microprocesso- 
re rendendo il nastro copiabile ma 
non caricabile. 

L’alterazione del formato dei 
floppy disk può consistere sempli- 
cemente nell’aggiungere una pista 
(per esempio la 4lesima su un di- 
schetto a 40 piste) o nel lasciarne 
una senza formato all’interno del 
disco. La prima informazione che 
verrà caricata da disco sarà un cari- 
catore speciale; poi verrà caricato 
il programma con la routine di ca- 
ricamento non standard, che si ac- 
certerà delle speciali condizioni, 
come per esempio la presenza della 
4lesima pista. Un disco riprodotto 
non avrà questa pista e quindi non 
potrà essere caricato. 


Tutte le tecniche di 
alterazione del 
formato possono 
essere escluse 


Si può ripetere questo processo a 
più livelli; si può programmare un 
piano di “caricamento nidificato” 
in cui si carica un caricatore specia- 
le da disco, che a sua volta carica 
un altro caricatore speciale, che ca- 
rica il programma. Tuttavia tutte 
queste tecniche di alterazione del 
formato di caricamento possono 
essere eluse, perché la prima infor- 
mazione caricata contiene il codice 
delle routine di caricamento non 
standard. Questo codice può essere 
disassemblato ed analizzato, ed il 
pirata può seguire il metodo preve- 
dendo le modifiche al formato. 

La protezione hardware contem- 
pla di solito il collegamento di un 


dispositivo ad una porta indirizza- 
bile del calcolatore. Il software vie- 
ne poi sviluppato in modo tale che 
per prima cosa il programma con- 
trolla se alla porta è collegato il di- 
spositivo giusto: se non è così, l’ac- 
cesso al programma è precluso. 
Anche in questo caso, però, la di- 
pendenza dal software è insita nel 
procedimento, che quindi può es- 
sere reso vano. 

Molte altre tecniche di protezio- 
ne sfruttano le peculiarità specifi- 
che dell’hardware dei vari tipi di 
computer. Con gli Apple, per 
esempio, si possono scrivere dati 
sui confini tra le piste dei floppy 
disk, un buon nascondiglio per by- 
te o routine chiave, senza i quali i 
programmi non possono essere ca- 
ricati. 

I computer Atari consentono di 
predisporre un byte normalmente 
usato per l’operazione di reset a 
caldo per effettuare un reset a 
freddo che azzera la memoria. Il 
software protetto con questo dispo- 
sitivo è l’unica informazione che 
può essere contenuta in memoria; 
qualsiasi tentativo di caricare un 
monitor prima o dopo il program- 
ma, azzera la memoria. Questo di- 
spositivo è connaturato all’hardwa- 
re dell’Atari ed è perciò sicurissi- 
mo. 

I videogiochi dell’Atari si basano 
su hardware progettato apposita- 
mente per impedire la duplicazione 
abusiva del software. Grazie a 
componenti segreti e poco cono- 
sciuti, si è modificato l’hardware 
perché possa eseguire delle istru- 
zioni in maniera non tradizionale. 
L’insieme delle istruzioni può esse- 
re codificato in modo che una chia- 
mata provochi un salto o una ope- 
razione di caricamento di registri; 
solo l’Atari lo sa di sicuro. Avendo 
a disposizione abbastanza tempo, 
denaro e un computer per la codifi- 
ca, la tecnica può essere decifrata, 
ma difficilmente vale la pena di 
farlo. 

Gli altri metodi per la protezione 
di software più noti richiedono un 
elaboratore molto grande, È neces- 
sario che questo verifichi le condi- 
zioni in cui il programma viene 
eseguito; perciò l’esecuzione risul- 


terà notevolmente più lenta. Ac- 
corgimenti di questo tipo possono 
servirsi degli interrupt di un elabo- 
ratore per impedire periodicamen- 
te al flusso di programma di indi- 
rizzarsi verso una locazione di me- 
moria sconosciuta, verificare un 
byte e poi tornare all’istruzione se- 
guente l’interrupt. 

I programmatori in Basic posso- 
no usare alcuni semplici ma efficaci 
metodi di protezione. Queste tec- 
niche di solito prevedono la disatti- 
vazione delle routine di break e di 
reset, in modo che, una volta cari- 
cato il programma, sia negato l’ac- 
cesso a livello del sistema. Inoltre i 
programmi Basic possono contene- 
re dei tab o dei codici di controllo 
per rendere impossibile il listaggio 
di un programma. 

Molti sistemi operativi su disco 
offrono anche livelli di protezione 
a cui si può ricorrere per prevenire 
l’accesso a un programma in Basic 
o in linguaggio macchina attraverso 
il sistema operativo. Tuttavia, vi si 
può arrivare accedendo alla memo- 
ria per l’utente con un monitor per 
il linguaggio macchina. 

Un altro accorgimento di prote- 
zione a disposizione dei program- 
matori di Basic più raffinati consi- 
ste nel conservare i programmi Ba- 
sic nel formato di sistema con va- 
riabili predefinite. Questo metodo 
prevede l’inserimento nel codice di 
una variabile chiave, memorizzata 
con una utility speciale, che non 
deve apparire nel listato del pro- 
gramma. Questa variabile può es- 
sere usata in una routine fonda- 
mentale che altrimenti provoca la 
fine del programma. Quindi qual- 
siasi copia ottenuta usando la rou- 
tine di I/O del Basic non funzione- 
rebbe. 


Proteggere o non proteggere 


È probabile che le tecniche di 
protezione rivestano una cetta im- 
portanza per parecchio tempo, per- 
ché i venditori di software ed i pro- 
grammatori hanno sempre interes- 
se che le duplicazioni non autoriz- 
zate siano minime. Gli accorgimen- 
ti di protezione possono essere utili 


perché molti acquirenti non sono 
abbastanza esperti tecnicamente da 
poterli superare. Ma ci saranno pur 
sempre degli utenti che, provocati 
nell’orgoglio, supereranno gli osta- 
coli e distribuiranno delle copie per 
provare la loro abilità e astuzia. 

Ma non c’è proprio un metodo 
sicuro per proteggere il software? I 
grossi calcolatori per molti anni 
hanno contenuto elaboratori parti- 
colarmente adatti alla protezione 
del software. Perché le case co- 
struttrici di microcomputer non 
possono raggiungere gli stessi risul- 
tati? 

La situazione storica determina- 
tasi durante l’evoluzione del mo- 
derno semiconduttore insegna che 
il fattore determinante era lo spa- 
zio sul chip. I progettisti si sono in- 
dirizzati verso lo sviluppo di elabo- 
ratori che funzionassero, benché 
realizzati su un singolo chip; inol- 
tre il progetto doveva consentire la 
produzione di massa. Di conse- 
guenza i primi microprocessori a 4 
bit vennero realizzati con una cir- 
cuitazione minima, tale da poterne 
permettere il funzionamento. 

Quando nacquero gli elaboratori 
a 8 bit, venne aggiunto solo il mini- 
mo essenziale di circuitazione. 
Nessuno di preoccupò di pensare a 
circuiti che potessero essere usati 
per la protezione del software; era- 
no ritenuti “fronzoli” da ignorare. 

Oggi, guardando indietro, vedia- 
mo che chi ha progettato i primi 
elaboratori ha peccato di eccessivo 
rigorismo; chi li ha seguiti ha conti- 
nuato sulla stessa strada. Tutto ciò 
che serve per aggiungere ai micro- 
processori una protezione software 
dipendente dall’hardware è una ul- 
teriore coppia di registri e dei cir- 
cuiti per produrre una relazione di 
dipendenza tra il software di siste- 
ma e quello applicativo. 

Nei grossi calcolatori, questa re- 
lazione di dipendenza funziona co- 
sì. La memoria è suddivisa in se- 
zioni a cui ci si può indirizzare in 
un unico modo. Tale sezionamento 
è effettuato dall’elaboratore cen- 
trale secondo la disponibilità di 
memoria. L’elaboratore si serve di 
due registri speciali per memoriz- 
zare gli indirizzi degli estremi di 


una partizione di memoria al mo- 
mento di utilizzarla. Alla memoria 
così suddivisa può accedere solo il 
sistema operativo del computer, e 
solo quando quest’ultimo si serve 
del software di sistema. Per rag- 
giungere il codice in qualsiasi parti- 
zione di memoria, finché la mac- 
china è in questo stato, si possono 
usare i monitor o i disassemblatori. 

Tuttavia ad un certo punto l’ope- 
ratore fa passare il sistema al soft- 
ware applicativo. Quando il pas- 
saggio è fatto, ogni partizione di 
memoria si chiude in se stessa. Il 
controllo non può più passare da 
una partizione di memoria ad 
un’altra. Se un programma tenta di 
raggiungere delle locazioni di me- 
moria esterne alla sua partizione, 
verrà prodotto un messaggio d’er- 
rore e, in certi casi, tale program- 
ma viene eliminato dalla memoria. 

Per utilizzare questo tipo di si- 
stema master-slave, il costruttore 
del microcomputer (e i pochi privi- 
legiati che pagheranno per poterlo 
fare) dovrebbero essere gli unici 
utenti a cui è consentito di accede- 
re al sistema operativo col software 
di sistema. 

La maggior parte degli utenti sa- 
rebbero costretti a comperare il 
computer con un sistema operativo 
orientato al software esterno. Inol- 
tre questi potrebbero far funziona- 
re programmi ma non copiarli, a 
meno che non contengano una rou- 
tine di copia. Certi programmi di 
utilità del sistema operativo po- 
trebbero avere limitato accesso 
nelle partizioni di memoria esterne 
a quella in cui risiedono, grazie ad 
una concessione speciale del siste- 
ma operativo (cioè del costrutto- 
re). 

Questo tipo di progetto master- 
slave può essere compreso nel pro- 
getto dei moderni microprocessori. 
Ed in effetti sorprende che l’ultima 
generazione di elaboratori non sia 
dotata di questa possibilità. Prima 
che possa disporne, ci sarà sicura- 
mente qualche pirata agguerrito, 
pronto ad affondare i suoi colpi 
nelle viscere della macchina alla ri- 
cerca della chiave della stanza che 
racchiude il tesoro, il frammento di 
software “protetto”. 


Usare il sistema operativo 


IL LIBRO 

Il sistema operativo, CP/M è stato, progettato, per 
rendere semplice l’uso, di un microcomputer. 
Questo libro vi renderà semplice l’uso, del CP/M. 
(Le versioni esaminate del CP/M sono il €P/M 
1.4-il CP/M 2.2. e il nuovo sistema operativo, 
multiutente MP/M) La maggior parte di utenti di 
microcomputer dovrà, infatti, un giorno o l’altro, 
fare ricorso all CP/M, disponibile su quasi tutti i 
computer basati sui microprocessori 8080 e Z80, 
come pure su certi sistemi utilizzanti il 6502. II 
libro, senza presupporre alcuna conoscenza 
calcolatore, inizia con la descrizione, pas 
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L’autoprogrammazione: 
un primo passo 
verso l’intelligenza artificiale 


Ettore Massimo Albani 


La domanda che maggiormente lascia perplessi i 
programmatori di computer è la seguente: “Può il 
computer, in particolari condizioni, modificare il pro- 
prio programma?”. Tale domanda si colloca nell’am- 
bito più generale della “intelligenza artificiale”, ma 
anche un personal computer come il PET/CBM può 
dare un contributo alla comprensione di tale proble- 
ma. La routine qui proposta consente di inserire una 
linea di programma da tastiera mediante un’istruzio- 
ne INPUT, e cioè mentre il computer sta eseguendo 
il suo stesso programma! 

Nulla vieta di ampliare la routine facendo 
“calcolare” la linea dallo stesso programma; ad esem- 
pio, si potrebbe decidere come e quali variabili del 
programma visualizzare in certe condizioni. 

Presentiamo anche un’applicazione, che potrà es- 
sere usata come subroutine in molti programmi ge- 
stionali e scientifici: INPUT numerico calcolato. 
Tuttavia, prima di addentrarci nella descrizione della 
routine, si rende necessaria un po’ di teoria. 


Come il CBM memorizza un testo Basic 


Come è noto, il CBM colloquia con l’operatore in 
linguaggio Basic; tuttavia, i programmi vengono 
“tradotti” dall’interprete Basic nel linguaggio macchi- 
na usato dal microprocessore 6502. Per la precisione, 
le linee di programma (contraddistinte dalla presenza 
del numero di linea) vengono memorizzate nell’area 
RAM in maniera diversa da come sono scritte dall’o- 
peratore, mentre con il comando di LIST vengono 
ritradotte in formato Basic. 

Il CBM, infatti, traduce i comandi Basic mediante 
un codice esadecimale di un byte: in questo modo 
qualsiasi comando, per quanto lungo, occuperà sem- 
pre un byte di RAM, aumentando, così, la disponibi- 
lità di memoria. 

La memoria RAM del CBM è divisa in pagine e 
ogni pagina corrisponde a 256 (o $FF in notazione 
esadecimale) byte. Le prime quattro pagine, dalla 
locazione (esadecimale) $0000 alla $03FF, sono riser- 
vate al sistema operativo che le usa per memorizzare 
diverse informazioni, come ad esempio i puntatori 


delle variabili, quelli di inizio del testo Basic, i buffer 
delle cassette, ecc. In particolare i primi 256 byte 
(fino a $FF), appartengono alla cosiddetta “pagina 
zero”. L’area di RAM riservata alla memorizzazione 
del testo Basic inizia alla locazione $0400 (1024 in 
decimale). Il semplice programma che segue: 


100 A=0 
110 A=A+1 : PRINTA 
120 GOTO 110 


sarà memorizzato nella RAM in questo modo: 


0400: 00 09 04 64 00 41 B2 30 
0408: 00 16 04 6E 00 41 B2 41 
0410: AA 31 3A 20 99 20 41 00 
0418: 22 04 78 00 89 20 31 31 

0420: 30 00 00 00 AA AA AA AA 


Il primo byte è sempre 00, mentre i successivi due 
byte (09 04) indicano la locazione di inizio della suc- 
cessiva riga Basic; si noti che devono essere letti al 
contrario (prima il secondo poi il primo), ottenendo 
così la locazione $0409. Questo indirizzo è chiamato 
link address. I successivi due byte rappresentano il 
numero della riga: 64 00 diventa $0064, che è 100 in 
decimale. 

Inizia a questo punto il testo Basic vero e proprio: 
$41 corrisponde alla lettera “A”, $B2 al simbolo 
“=”, $30 al numero “0”. C'è poi un $00: è il separa- 
tore fra una riga e la successiva. Alla locazione $0409 
inizia infatti la seconda riga. 

Ci sono i due byte di link, i due del numero di riga 
(6E 00 = $006E = 110) ed il testo: $41=“A”, 
$B2=“=”, $41=“A”, $AA="+”, $31="“1”, 
$3A=“:”, $20=“ ”, $99=“PRINT”, $20=“ ”, 
$41=“A”, e così via. 

Così come $99 corrisponde a “PRINT”, anche tut- 
te le altre parole chiave (tokens) del Basic hanno il 
loro codice (vedi tabella 1 in fondo alla rubrica). 


La routine 


Fatte queste premesse, andiamo ad analizzare la 
routine. Lo scopo è di aggiungere al programma in 
esecuzione una linea, di volta in volta introdotta me- 
diante l'istruzione INPUT X$. 


Per far questo bisogna memorizzare il contenuto di 
X$ in alcune locazioni del testo Basic, appositamente 
tenute disponibili, in modo che la linea divenga ese- 
guibile mediante un GOSUB. Il programma è molto 
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semplice nella sua forma primitiva, ma si presta a 
molte modifiche ed ampliamenti. Segue una descri- 
zione delle singole linee della routine. 


1 GOTO000Z0 
248 1: RETURII 


20 INPUT x& 


40 C=0: L=LEN(X$): IF L>23 THEN 30 
50 FOR I=1041 TO 1063 C+i 
$0 IF C>L THEN Y=32: GOTOI40 


70 2%=MID$(X#,C,1}: Y=ASC(2£) 

80 IF Y=43 THEN Y=170: GOTOI40: REM "+" 
90 IF Y=45 THEN Y=171: GO0T0140: REM 
100 IF Y=42 THEN Y=172: GOT0140: REM “ 
110 IF Y=47 THEN Yy=173: GOT0140: REM 
120 IF Y=94 THEN Y=174: GOTO140: REM "?" 
130 IF Y=éi THEN Y=178 


Listato 1. 


1: Esegue il salto alla prima riga del programma 
utente. Si noti che il numero di linea del GOTO 
è fisso di cinque cifre. 

2: Sono 23 spazi disponibili per la memorizzazione 
della stringa. Si noti la presenza del RETURN 
che consente di richiamare la linea da qualsiasi 
punto del programma e la presenza dei due punti 
iniziali che servono a delimitare gli spazi. 

30-40: INPUT e controllo della lunghezza. 

50: Inizio del ciclo di memorizzazione; le locazioni 
1041 e 1063 sono la prima e l’ultima disponibili 
nella riga 2. 

60: Riempie con dei blank lo spazio eventualmente 
non occupato fino alla locazione 1063. 

70: Ricava uno ad uno i caratteri dalla stringa X$ e 
pone in Y il corrispondente valore ASCII. 

80-120: Questa serie di IF trasforma il codice ASCII 
degli operatori aritmetici nel corrispondente va- 
lore token del Basic. Si noti che mancano tutti gli 
operatori logici (AND, OR e NOT) e le funzioni 
matematiche (SIN, COS, TAN, SOR, ecc.) che 
richiedono un programma più complesso. 

130: Memorizza il codice nelle locazioni disponibili. 

140: Chiusura del ciclo. 

150: Fine del programma. 

Si noti ancora come le prime due linee di programma 


62 


sono memorizzate nella RAM: la serie di $20 che 
inizia alla locazione $0411 sono gli spazi disponibili. 


0400: 00 0C 04 01 00 89 30 30 
0408: 30 33 30 00 2C 04 02 00 
0410: 3A 20 20 20 20 20 20 20 
0418: 20 20 20 20 20 20 20 20 
0420: 20 20 20 20 20 20 20 20 
0428: 3A 20 8E 00 -- -- -- -- 


Sviluppi e modifiche 

Si è solo accennato, precedentemente, al problema 
di codificare anche gli operatori logici e le funzioni 
trigonometriche. L’inconveniente risiede nel fatto 
che questi operatori occupano, all’interno della strin- 
ga, più di un byte, e quindi la loro decodifica risulta 
più complessa. La soluzione più semplice è quella di 


1 GOTOOCIDO 
2X%= : RETURN 
100 REM # INIZIO PROGRAMMA UTENTE 


1220 INPUT X$: IF LEFT&(X&8,1)>"=" 
THEN 1260 

1230 X$=MID$(X#,2): GOSUB 10000 

1240 IF F THEN 1220 

1250 GOTO 1270 

1260 X=VAL(X$) 

1270 


10000 REM * INPUT CALCOLATO CIN X&, DUT x) 


: L=LENCxX$): 

THEN 10020 

10015 PRINT "ESPRESSIONE TROPPO LUNGA": 
F=1: GOTO 10199 

10020 FOR I=1092 TO 1083; C=C+1 

10030 IF C>L THEN y= 


10010 F=0; 


10040 28=MID$(X$,0,1 (2%) 

10050 IF Y=43 THEN v=170: GOTOIO110: 
REM "+" 

10070 IF Y=45 THEN v=171: GOTOIO110: 
REM "-" 

10080 IF Y=42 THEN v=172: GOTOLOILO: 
REM "»" 

10090 IF Y=47 THEN v=173: GOTOICI10: 
REM " 


10100 IF Y=94 THEN v=174: REM "#?" 
40110 FOKE I, 

10120 NEXT 

101230 GOSUE 2 

10199 RETURN 


Listato 2. 
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codificarli con dei caratteri particolari (ad esempio @ 
= AND) ed eseguire il riconoscimento come nelle 
linee 80-120. 

Un’altra modifica può essere quella di aumentare 
lo spazio disponibile nella linea 2, oppure di aggiun- 
gere altre linee di blank. Si ricordi che la massima 
lunghezza di una linea è di 80 caratteri e che i blank 
devono essere delimitati dai due punti. 


Si raccomanda, comunque, di porre molta atten- 
zione a non superare lo spazio disponibile di blank, 
poiché un solo carattere fuori posto può compromet- 
tere la corretta memorizzazione del programma. 

Quale esempio pratico di utilizzo della routine, ri- 
solviamo un problema che si presenta spesso agli 
utenti del CBM: l’INPUT numerico calcolato. È in- 
fatti impossibile, pena una segnalazione di errore, 
rispondere “1+2+*10/(4+3)” alla richiesta di un IN- 
PUT X. 


1: Salto alla prima linea del programma utente. 

2: In questa linea c'è uno spazio in meno, poiché è 
stato sostituito il “:” con “X=”; in questo modo 
la variabile in uscita sarà sempre X. 

1220: INPUT della variabile stringa X$. Se il caratte- 
re iniziale è “=”, INPUT è da calcolare. 

1230: Toglie il carattere “=" da X$ e rimanda alla 
subroutine. Si noti il particolare uso della funzio- 
ne MID$ che consente di ricavare la parte a de- 
stra della stringa senza conoscerne la lunghezza. 

1240: Se F< > (errore) ripete INPUT. 

1250: Salta la linea successiva, che deve essere ese- 
guita solo se l’INPUT è un normale numero. 

1260: Assegna ad X il valore di X$. 

10010: Inizializza il flag di errore (F) e controlla la 
lunghezza della stringa. 

10015: Scrive il messaggio di errore, pone a 1 il flag e 
conclude la subroutine. 

10020: Inizia il ciclo di decodifica e memorizzazione. 
Si noti che la locazione iniziale è 1042 e non 
1041; infatti alla linea 2 “X=” occupa un caratte- 
re in più di “:”. 

10130: Esegue il calcolo. 


ESA DEC. BASIC ESA DEC. BASIC 
80 128 END BO 176 OR 

81 129 FOR BaazzAN, 

82 130 NEXT B2 178 = 

83 131 DATA B3 179 < 

84 132 INPUTW B4 180  SGN 

85 133 INPUT BS 181 INT 

86 134 DIM B6 182 ABS 

87 135 READ B7 ‘188 USR 

88 136 LET B8 184 FRE 

89 137 GOTO B9 185 POS 

8A 138 RUN BA 186  S@QR 

8B 139 IF BB 187 RND 

8C 140 RESTORE BC 188 LOG 

BD 141  GOSUB BD 189 EXP 

BE 142 RETURN BE 190 COS 

8F 143 REM BF 191 SIN 

90 144 STOP CO 192 TAN 

941 145 ON Ci 193 ATN 

92 146 WAIT C2 194 PEEK 
93 147 LOAD C3 195 LEN 

94 148 SAVE C4 196 STR$ 
95 149 VERIFY Coe VAL 

96 150 DEF C6 198 ASC 

97 151 POKE C7 199 CHR$ 
98 152 PRINT# C8 200 LEFT$ 
99 153 PRINT C9 201 RIGHT$ 
9A 154 CONT CA 202 MID$ 
‘BASS "CISn CB 203 G0 

9C 156 CLR CC 204 * CONCAT 
9D 157 CM CD 205 * DOPEN 
SE 158  SYS CE 206 * DCLOSE 
9F 159 OPEN CF 207 * RECORD 
AO 160 CLOSE DO 208 » HEADER 
A1 161 GET DI 209 * COLLECT 
A2 162 NEW D® 210 *» BACKUP 
AB 163 TABC D3 211 * COPY 
A4 164 TO D4 212 * APPEND 
AS 165 FN DS 213 » DSAVE 
A& 166 SPC D6 214 * DLOAD 
A7 167 THEN D7 215 »* CATALOG 
AB 168 NOT DB 216 * RENAME 
A9 169 STEP D9 217 * SCRATCH 
AA 170 + DA 218 * DIRECTORY 
AB 171 = 

Ac zelo a 

AD 173 % 

AE 174 £ 

AF 175 AND 


Tabella 1. Elenco delle parole chiave. Le parole chia- 
ve precedute da asterisco sono tipiche del Basic 4.0 
Commodore. 
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Tecniche di velocizzazione 


Enrico Ferreguti 


Le tecniche di velocizzazione si dividono in due 
principali gruppi: rendere i cicli ordinati e cercare di 
essere cauti nella scelta delle funzioni matematiche 
nei lavori di calcolo. Il prossimo esempio di velociz- 
zazione è un ibrido fra i due. 

In alcuni programmi matematici si ripete molte 
volte una stessa operazione, quindi l’uso di cicli è es- 
senziale. 

Se fosse necessario costruire una tavola di J°/K per 
i valori di K da 1 a 10 e per valori di K da 1 a 100 
potrebbero essere usati due programmi: 


FOR J=1 TO 10 
FOR K=1 TO 100 
LET A=J**2/SQR K 
NEXT K 
NEXT J 
Tempo di elaborazione 3’48" (modo fast) 


FOR J=1 TO 10 
LET B=J#+2 
FOR K=1 TO 100 
LET A=B/SQR K 
NEXT K 
NEXT J 

Tempo di elaborazione 2/1” (modo fast) 


Nella prima versione ‘il quadrato di J viene calcola- 
to 1000 volte ma questo breve calcolo è eseguito nel- 
la seconda versione solo 10 volte con evidente guada- 
gno di tempo. 

Questi due programmi mostrano quanto sia impor- 
tante la corretta strutturazione dei cicli, ma anche 
quanto lento sia lo ZX81 ad eseguire quadrati e radi- 
ci quadrate. 

Non c’è nessuna alternativa all’uso della funzione 
SOR ma ci sono diverse vie per calcolare quadrati ed 
altre potenze di numeri. 

Per esempio il quadrato di 2 può essere calcolato 
nei seguenti modi: 


2+2=4 
22=4 
2442=4 


È interessante notare quanto velocemente la mac- 
china trovi i quadrati con questi tre metodi: 
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FOR J=1 TO 1000 

LET A=2**#2 

NEXT J 

PRINT “FATTO” 
Tempo di elaborazione 1’56" 


FOR J=1 TO 1000 

LET A=2+2 

NEXT J 

PRINT “FATTO” 
Tempo di elaborazione 8” 


FOR J=1 TO 1000 

LET A=2+2 

NEXT J 

PRINT “FATTO” 
Tempo di elaborazione 7” 


Non abbiamo molto interesse a cambiare moltipli- 
cazioni con più addizioni, ma si può risparmiare tem- 
po di elaborazione sostituendo le elevazioni a poten- 
za con delle moltiplicazioni multiple. 

Possiamo velocizzare delle procedure anche usan- 
do, al posto di cifre espresse direttamente, delle va- 
riabili. Guardiamo questo esempio: 


FOR J=1 TO 1000 

LET A=10 

NEXT J 

PRINT “FATTO” 
Tempo di elaborazione 1’7” (modo slow) 


LET B=10 
FOR J=1 TO 1000 
NEXT J 


PRINT “FATTO” 
Tempo di elaborazione 1’0” (modo slow) 


Questa tecnica consuma memoria e variabili, però 
fa guadagnare qualche secondo nell’elaborazione 
(guadagno che si fa più consistente in caso di funzioni 
complicate). 

In alcuni computer è conveniente mettere tutte le 
subroutine all’inizio del programma se le routine so- 
no chiamate ripetutamente. 

Questo succede perché la macchina comincia a cer- 
care la linea specificata nell’istruzione GOSUB dalla 
linea 1, quindi le routine memorizzate all’inizio del 
programma sono trovate più velocemente di quelle 
memorizzate alla fine. Lo ZX81 invece è differente 
perché lavora in maniera contraria, cioè trova prima 
una routine memorizzata alla fine del programma e 
poi quella all’inizio. 

È più veloce eseguire GOSUB 5000 mille volte che 


I SEGRETI DEI PERSONAL 


SINCLAIR ZX80/81 


eseguire GOSUB 5 le stesse volte. 


1 GOTO 10 

5 RETURN 

10 FOR J=1 TO 1000 

15 GOSUB 5 

20 NEXT J 

25 PRINT “FATTO” 
Tempo di elaborazione 27” (modo slow) 


10 FOR J=1 TO 1000 
15 GOSUB 5000 
20 NEXT J 
25 PRINT “FATTO” 
30 STOP 
5000 RETURN 
Tempo di elaborazione 26” (modo slow) 


Robot 

In questo gioco, che applica le tecniche di movi- 
mento discusse nel numero scorso della rubrica, siete 
impegnati nella difesa del mondo, cercando di di- 
struggere le orde di robot che vogliono arrivare alla 
bomba H per tirare la leva e farla saltare. Avete in 
dotazione un’astronave che vola ad altezza variabile 
e che può lanciare una bomba alla volta. Se premete 
S la bomba va a sinistra, se premete 8 la bomba va a 
destra (per lanciare un’altra bomba bisogna aspettare 
che la precedente cada a terra). 

Per abbattere il robot dovete colpirlo proprio su 
uno dei due spigoli della testa, ma per distruggerlo 
completamente bisogna colpirlo esattamente tante 
volte quante sono indicate dal numero che avete in- 
serito all’inizio come livello di gioco. Usando un li- 
vello basso è più facile frenare i robot prima che arri- 
vino alla bomba ma, alla distruzione di ogni robot, si 
avrà un bonus basso; ad un livello più elevato la di- 
struzione sarà più difficile ma il bonus più consisten- 
te. 

Notate alle righe 53, 1010, 1120 e altre l’uso della 
TAB descritto sul numero 3 di Persona! Software. Mi 


IF 0<9 “dà 9>26 THEN GOTG SQ 
IF V=16 SAND DOsA THEN GOTO SF 


ZF_WV=21 THEN GOTO S60 
ECO 2049 


è ane' TAB A- 


in 

20 PRINT ST 15.801; "TAB A- 
@ NEXT_K È 

5 PRINT RAT 15:R+L:" “";QAT 15,8 


[SRI] 


PRINT RT 5.0; VI ROBOT HANNO 
PRINT “BISTRUTTO IL MONDO 
PRINT_AT_9,9; EROS UN ALTRO 
a ORA DIFENDERE 3" 


“S" THEN RUN 


I SEGRETI DEI PERSONAL 


VIC 20 


Come realizzare un listato 
bidirezionale 


Carlo Saraceno 


Ora che sono disponibili i moduli di espansione di 
memoria, è possibile scrivere programmi più lunghi. 
Risulta più difficile però editarne il contenuto senza 
una copia stampata da esaminare. L’editing da 
schermo richiede molto tempo: con 22 caratteri per 
linea si possono listare solo quattro o cinque linee 
alla volta. Un LIST veramente utile dovrebbe poter- 
si fermare e continuare, a piacere. Un LIST ideale 
dovrebbe anche scorrere all’indietro. 

Questo piccolo programma svolge efficacemente 
questi compiti. La linea 63001 determina l’indirizzo 
di partenza (SA) per ogni memoria del VIC. La li- 
nea 63002 calcola il numero di linee (LN) del vostro 
programma. La linea 63003 predispone lo schermo 
per listare la linea, quindi continua il programma. È 
scritta in bianco in modo che non vediate i comandi 
e mantiene lo schermo libero da echi parassiti per 
controllare la linea listata. 

Una volta che una lista è stata iniziata in un pro- 
gramma, il programma termina. Questo perché i co- 
mandi del buffer di tastiera nella linea 63004 con- 
trollano la lista e quindi continuano il programma 
con il comando GOTO 63010. Le linee da 63010 a 
63030 vi permettono di vedere la linea listata e 
aspettano che premiate il tasto + per andare avanti 
alla prossima linea, o — per tornare indietro alla pre- 
cedente. La linea 63100 controlla il prossimo 0 in 
Basic, che indica la fine di quella linea Basic, e 
Quindi vi rimanda indietro a calcolare il prossimo 
numero di linea. La linea 63200 è la routine che 
controlla la fine della linea precedente. Dovete eli- 
minare le possibilità di trovare uno 0 negli indirizzi 
che determinano il numero di linea non ammettendo 
uno 0 in questi due indirizzi. Un altro piccolo trucco 
VI permette di evitare di battere questo programma 
dopo aver introdotto un programma principale. Tro- 
vate la fine del Basic battendo 


CLR: PRINT PEEK(45),: PRINT PEEK(46) 


Ora battete la seguente linea che sposta l’inizio del 
Basic a due byte meno della fine del programma (è 
necessario o un “nulli” o uno 0 per iniziare a carica- 
re un nuovo programma): 
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63000 REM&# +/- LIST #* 

&3001 SA=PEEKC44)#256+PEEK(433-1 

63002 LN=PEEK(SA+3)+PEEKCSA+41#256 

63093 PRIHT"IZAG0T0 63010" :PRINT"LIST"; 
LH; 

63004 POKEG31,19:POKE632.17 

63005 POKEG633,31:POKEG34.13 

630906 POKE635,19:POKES36, 13 

63007 FOKE19S,6:ENI 

63019 IF PEEK(197>=5 THEN 63100 

63015 REM TEST FOR "-" KEY 

63020 IF PEEK(1973=61 THEN 63200 

€2025 REM TEST FOR "+" KEY 

63036 GOTO E3Gla 

€3100 IF PEEKCSA+53<>0 THEN SA=SA+1 

631095 GOTO 63100 

63110 SA=SA+5:GO0T0 62002 

63200 SA=SA-1:IF PEEK(SA)=0 AND 
PEEKCSA-41<30 AND 
PEEK(SA-33<>0 THEH 63002 

Gazia GOTO 63200 


POKE 43,PEEK(45)-2: POKE 44,PEEK(46) 


Ora caricate il programma “+/-LIST”, resettate i 
puntatori Basic (POKE 43,1;POKE 44,16 per il VIC 
senza espansione). Cominciate ad editare battendo 
RUN 63000. Sarete in grado di verificare il vostro 
programma linea per linea. Ogni errore scoperto de- 
ve essere annotato su carta e corretto in seguito. 


Gioco del calcio 
su PET/CBM 


er gli appassionati del calcio, 
pe un simpatico gioco ab- 

bastanza ben curato nella 
parte grafica, che gira su qualsiasi 
PET/CBM (anche con soli 8 K, ma 
in tal caso occorre eliminare tutte 
le REM). Chi non avesse problemi 
di memoria può arricchirlo ulte- 
riormente sonorizzandolo. 

Il gioco avviene fra due giocatori 
(e non contro il PET, che ha quin- 
di solo funzione di arbitro). 

Dopo aver dichiarato il nome 
delle due squadre e fissato il tempo 
di durata della partita, si devono 
disporre i giocatori secondo lo 
schieramento preferito e la partita 
può iniziare. 

Per evitare che i giocatori in di- 
fesa attuino un catenaccio impene- 
trabile concentrandosi in gran nu- 


: FRINT CHR$(147) 

* PE=10: P$=CHR$(T 
DIM H$(11,20): HIS(ii 
FRINTTAB(12) © E 
FOR 


1 
4 
5 
4 
7 
8 
100 
1 
1 
150 


CHR$(157); 
INFUT © 


JADRA" 


1: GOSUB 3 
INFUT "QUANTI MINUTI DURERA* 


CITTITTTTTZ TETTE TITTI TETTE CIEL TLO CCLLCCELOI 


CALCIO 
VERSIONE FET.CEM 


FERSIONAL SUFTWARE 


UTTTTTTTTT TESTE ETC CTC ICI TEC LLC COCCO 1 


LA FARTITA": MT 
O REM RIEMFIMENTO MATRICE DEL CAMPO 


di Carlo Sintini 


mero dentro la propria area di ri- 
gore, vale la regola che il portiere 
è l’unico giocatore autorizzato a ri- 
manere nell’area di rigore. 

Ciascuna squadra a turno può 
scegliere se spostare un suo gioca- 
tore o tirare. Il tiro è permesso so- 
lo al giocatore in contatto con il 
pallone (cioè che si trovi in una ca- 
sella adiacente al pallone, anche in 
diagonale). 

Il tiro può essere forte, medio o 
debole e in tal caso lo spostamento 
del pallone sarà rispettivamente di 
8, 402 caselle. Se il pallone incon- 
tra un ostacolo (un altro giocatore 
o il contorno del campo di gioco, 
eccettuate le porte) rimbalza a ca- 
so. 
Ad ogni gol lampeggerà per al- 
cuni secondi la scritta GOL nella 


GOSUB 540 


NEXT Jik 


FOR_K=2 TO 10: 
i9: 


SATO 78 


0)=CHR$(255): NEXT 
REM FINE RIEMPIMENTO 


R 
FOR k=i TO 11: 


parte inferiore dello schermo e, 
quindi, apparirà il punteggio delle 
due squadre. Nella parte superiore 
dello schermo invece è sempre visi- 
bile il tempo mancante al termine 
della partita. Dopo ogni gol i gio- 
catori vengono automaticamente 
risistemati nella formazione iniziale 
e la palla assegnata alla squadra 
che ha subito il gol. 

La matrice H$ memorizza la po- 
sizione dei giocatori e della palla 
durante la partita mentre la matri- 
ce H1$, la formazione iniziale delle 
due squadre. 

Tutti i dati d’ingresso sono trat- 
tati con istruzioni GET, in modo 
che non c’è bisogno di premere do- 
po ogni comando il tasto RE- 
TURN. 


FOR J=2 TO 139: Hs(k,J)=" o" 


Hg(1,K}=CHR$(1464) 


* 
* 

i CHR$(1646): NEXT 
* FOR K=1 TO 11: 
* 

* 

* 


Hs (ky 1)="#" Hg(k,Z0) 


H$(kK,1)=CHR$(255) 


PRINT CHRS(18)5 
TEMA I Gli 
=CHRS(CR) 


FOR. 


REM INIZIO FARTITA 


Segue Gioco del calcio 


400 TI$="000000": GOSUB 700: T=0 
410 T=T+1: IF T>2 THEN T=1 
420 GOSUB 3000: PRINT S$(T)":" CHR$(15) “M“; 
425 PRINT CHR$(146) "UOVI O “ CHR$(15) “"T" CHR$(146); 
427 PRINT "“IRI" 
430 BET DG$ 
440 IF GG$ 
450 IF _Q9$="T" THEN GOSUB 780: GOSUB 1440: GOTO 450 
460 GOTO 430 
470 REM CAMPO DI GIOCO 
450 GOSUB 710 
490 IF GL=1 THEN GG(T)=GG(T)+1: GL=0: GOSUB 2000 
500 IF MM<=0 THEN GOSUB 1910 
510 GOTO 410 
520 END 
530 REM CAMPO DI GIOCO 
540 PRINT CHR$(147) 
550 FOR K=1 TO 18: FRINTTAB(2) CHR$(K+64) " "ss: 
555 NEXT 
560 FOR K=0 TO 17: FOR J=0 TD 9 
565 FOKE 32850+E0%J+2*K 164: NEXT JrK 
570 FOR K=0 TO 18: FOR J=0 TO 2 
575 FOKE 32559+S0xJ+2%*K,93: NEXT Jik 
580 FOR K=0 TO 14: FOR J=0 TO 7 
585 POKE 32931+S0#J+2+*kK,9 NEXT Jak 
590 FOR K=0 TO 16: FOKE 32851+2#*K,114 
595 POKE 33571+2*K,11 XT 
400 FOR K=0 TD 7: POKE 32929+80#K,107 
405 POKE 32965+S50*K,115: NEXT 
&10 POKE 32249,11 POKE S20C910 
515 POKE 33569,109: POKE 33605,12' 
520 PRINT: PRINT: FOR K=1 TO 9: ÉRINT CHR$(K+42); 
525 PRINTTAB(3£) CHR$(K+45): PRINT: NEXT 
530 FOR K=1 TO 18 (2) CHR$(K+64)" "3: NEXT 
540 FOR K=0 TO 16: E 32907+40*K,102: NEXT 
550 FOR K=0 TO 4: 129+40%K,102 
655 FOKE 33165+40#K1( NEXT 
560 FOR K=0 TO 3: POKE S3010+k, 102 
465 FOKE 41+K, 102: POKE 38410+K;1 
£70 POKES3441+K,102: NE 
450 FOR K=0 TO S: FOK 05T+40%K 102 
£90 FOKE 33021+40%K,1 NEXT: RETURN 
REM OROLOGIO 
MUZ=VAL(MID$(TI$,3,2)) 
MM=MT-MU: FRINT CHR$(19) CHR$(18)5 


68 


PRINTTAE(3) "MINUTI ALLA SCADENZA DEL TEMPO:" MM 
IF MM<10 THEN POKE 04, 
MM=MM+1 

RETURN 

REM CANCELLAZIONE RIGA 
FOR Z=0 TO 39: FOKE 
RETURN 

REM RITARDO 

FOR Z=1 TO 2000: 
REM SISTEM. GIDC 
FOR N=i 10 il 


RETURN 


NEXT= 


GOTO E 
GOTD 
IGA? " 


GOSUB 
T R$: IF R$ 
PRINT Rs: 
IF R<1 DR R 


GOTO 270 

1 
THEN N=N-1: GOTO 970 
00: PRINTTAB(C1) 5$ 


GOSUB 
NEXT 
RETURN 

REM MOSSE DEI CATORI 


PRINT "SUALE GIOCATORE ? “ 


1080 
1090 
1095 
1100 
1105 
1110 
1120 
1125 
1130 
1140 
1150 
1160 
1170 
1180 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1220 
1290 
1295 
1300 
1310 
1320 
1325 
1327 
1330 
1335 
1340 
1350 
1360 
1370 
1350 
1390 
1400 
1410 
1420 
1430 


1500 G 


1510 
1520 
1530 


14500 
1610 
1615 
1620 
1630 
1640 


O GOSUB 750: 


IF RG<I OR RO>9 GOTO 1050 
IF_T<>1 OR H$(R0+1,C6+1)< 
GOSUB 750: GOTO 1120 


DCHR$(Z11) GOTO 1100 


IF_T<>2 OR H$(R6+1,CG+1)<>CHR$(2Z16) GOTO 1110 
GOSUB 7: GOTO 1120 

GOSUB 78 OTO 1010 

BGOSUB 78 GOSUB 3000 

PRINT “DIREZIONI (INTORNO AL 5)"; 

GET A$: IF A$= OTO 1130 

A=ASC(A$)-48: IF A=5 GOTO 1150 

PRINT " N. PASSI? 

GET XX$: IF XX$="" GOTO 1160 
XX=ASC(XX$)-48: IF XX<1 DR XX>9 GOTO 1140 
FOR WW=1 TO XXs FD=0 

IF A=i THEN 

IF A=2 THEN Gi O 

IF A=3 THEN R=RG+1: GOTO 1290 

IF A=4 THEN GOTO 1290 

IF A=& THEN GOTO 1290 

IF A=7 THEN : GOTO 1290 

IF A=8 THEN GOTO 1290 

IF A=9 THEN R=RG-1: GOTO 1290 

IF A=5 OR Ac OR A>9 THEN GOSUB 780: GOTO 1010 
IF _H$(R+1,C+1)= GOTO 1300 
A=INT(RND(1)#*9+1): FD=1 


IF FD=1 AND A=S THEN" 1290 


MG$=CHR$ (211 GOTO 1340 
H$(R+1,C+1)=CHR$(216): H$(R0+1,C0+1)=" " 
MG$=CHR$(216) 
FOR 231 TOS 
G=RG*2+1: GOSUB 
Q=RG*2+ 15 GOSUB 
NEXT 
FOR Z= 


FRINTTAB(CG*2) MG$ 
FRINTTAB(CH 


PRINTTAE(C&#2) " " 
PRINTTAB(C*2) M6$ 
NEXT 
CO=C: RO=R 
NEXT 


RETURN 
REM TIRI DEI GIDCATORI 


PRINT CHRS$(146) “ORTE, " 
PRINT CHR$(146) "EDID O" 
PRINT CHR$(144) "“EBOLE © 


IF A$="" Gi 
F" THEN FT= 


GOTO 1550 


FOR K=21 TO 1: FOR d=-1 TO 1 
IF H$(FR+K,PC+J)= 


FRINT "NON i I TIRARE MI 
GOSUB 7 


3000 
PRINT "IN QUALE DIREZIONE? ( INTORNO AL 
BET A$: IF A$="" GOTO 1620 


Sus 


16550 60 


1660 
1670 
1680 
1690 
1700 
1710 
1720 
1720 
1740 
1745 
1750 
1760 
1770 
1780 
1790 
1800 


GOTO 1740 
GOTD 1740 
GOTO 1740 
TO 1740 
GOTO 1740 
GOTO 1740 
GOTO 1740 


ce 
IF A=9 THEN R=PR-1 
IF H$(R+C)<3CHR$(255) GOTO 1750 
GL=i: 3 NEXT: RETURN 
IF H$(R,C)=" “ GOTO01780 
A=INT(RND(1)#9+1): IF A=5 GOTO 1750 
GOTO 1660 
H$(PR,PC ": H$(R,C)=P$ 
G=2*PR-1: FOR Z=1 TO 2 
BOSUB 3000: PRINTTAB(PC*2-2) P$ 


(segue) 


Segue Gioco del calcio 


Novità 
Personal Kid! 


1810 GOSUB 3000: FRINTTAB(PC#2-2) " “ 
1320 NE 
1830 | : FOR Z=1 TO 2 PREZZO (IVA escl.) 
18240 3000: PRINTTAB(C Det 
100 GOSUB 3000: PRINTTAB(C*2-2) P$ 
50 NEXT 
1870 FEST: PR=R CPU BOARD 48 K RAM 650.000 
1880 NEXT i 
1890 RETURN Tastiera ASCII con pad 
1900 REM FINE PARTITA numerico esteso e tasti 


1910 
1920 


FRINT CHR$(147) 
IF GG(1)<>BG(2) GOTO 1927 


funzionali 210.000 


22 ERINIARAVETE FAREGGIATO " GG(1) " A “ GG(1) UNITÀ CENTRALE 
925 GOTL 16] A ’ 

1927 2=(SGN(GG(2)-GG(1))+3)/2 completa di alimentatore, 
1930 PRINT “HA VINTO " CHR$(18 tastiera ASCII dotata di 


5$(Z) CHR$(146); 


1940 FRINT " PER G(Z) " A" GG(3-2) i i 
1950 Q=4: G PRINT "UN'ALTRA PARTITA?" pad numerico esteso e tasti 
1960 GOTO 1960 funzionali, contenitore 


1970 


O FOR K=1 
O G=k*2+1: G 


"OK — CIAD! !": END 


PRINTTABCIS 
FRINTTAB( 
: FRINT CHR$( 


CHR$(18) "GOL" 
#" "s NEXT 
:$ (1) CHR$(146)5 


3 FOR J=1 TO TO: H$(KyJ)=H1$(K,J) 


FC=10: GOTO 2140 


H$(6,10 RT 
IF H$(4&,11)< 
H$(4&,11)=FP$: 
IF H$(5,11)< 
H$(S,11)=F$: 
IF H$(7,11)s 
H$(7,11) 


NEXT: NEXT 
RETLIRN 


9 STOP 


PRINT CHR$(19) 


33 FOR HT=1 TO GW 
FRINT CHR$(17)5: NEXT: RETLRN 


Se convertite questo programma per il vostro com- 
puter, spediteci il listato, una paginetta di spiegazio- 
ni e un supporto magnetico (disco o cassetta) con 


1.210.000 
1.260.000 


Con tastiera incorporata 
Con tastiera separata 


Che cosa ha in più 
Personal Kid? 


S$(2); 
0: RETURN - Costo Basso 
IL GOL 


- Lettere minuscole 


- Tastiera con pad 
numerico + i segni 
delle operazioni 

- Set di tasti funzionali per 
l’esecuzione 
immediata dei principali 
comandi 
+ il completo controllo 
del cursore 

- Disponibilità del sistema 
in versione 


la registrazione del programma. open frame o vestita in più 
configurazioni 


Compatibile Apple 


Questo programma è disponibile su disco. 
Vedete nelle ultime pagine il “Servizio programmi”. 


PERSONAL 
/ | 


SIPREL s.r.l. Via Di Vittorio - Zona Industriale Baraccola ANCONA 
ANCONA TEI.. 071/8045305 - MILANO TEL 
BOLOGNA TEL. 051 : 


Concessionari 


Cero 


PROGRAMMI DI MATEMATICA E STATISTICA 


Leggendo questo libro il lettore potrà formarsi quella logica di 
base indispensabile per la risoluzione di problemi di matemati- 
ca e statistica. ' nd . 
Ad ogni programma viene preposta un'esposizione schemati- 
ca del metodo numerico e delle tecniche di programmazione 
utilizzate, il diagramma a blocchi relativo all'algoritmo, il li- 
stato (anch'esso ottenuto da calcolatore) in cui tra l'altro ven- 
gono specificati il tempo e la quantità di memoria impiegati. 


Cod. 522D L. 16.000 Pagg. 228 


INTRODUZIONE AL PASCAL 


Il volume, incentrato su numerosissimi esempi che verificano 
costantemente l'apprendimento del lettore, insegna a conosce- 
re, capire ed usare tutte le particolarità e i vantaggi di questo 
linguaggio. Nel corso della trattazione vengono ampiamente 
utilizzate le tecniche di programmazione strutturata, come 
pure tecniche particolari, quali iltrattamento dei file, l'utilizza- 
zione della recursività e il trattamento grafico. 


Cod. 516A L. 30.000 Pagg. 484 


COMPUTER GRAFICA 


Si può dire che la computer grafica si pone nel contesto più 
generale del trattamento dell'informazione, avendo individua- 
to nell'immagine un contenuto informativo che è possibile 
elaborare. 
Quest'opera, con il suo rigore informativo e scientifico, si pone 
come fondamentale nel carente panorama italiano; inoltre le 
informazioni e gli spunti contenuti nel testo contribuiranno 
Der Raente alla divulgazione ed alla formazione di idee nuove 
onde. 


Cod. 519P L. 29.000 Pagg. 174 


APPLE Il - Guida all'uso 


Se possedete un Apple e volete conoscerlo a fon- 
do, se volete comprarlo, o se semplicemente vole- 
te imparare la sua programmazione, troverete in 
questo libro, tutte le risposte, comprese alcune 
vere “primizie” che vi occorrono per una perfetta 
Operatività del sistema. Conoscerete i vari compo- 
nenti del sistema e come usarli al meglio. Verrete 
guidati alla programmazione in BASIC e a usare le 
caratteristiche grafiche e sonore del sistema. Im- 
parerete a memorizzare su disco sia programmi 
che archivi dati, come ad inserire un programma 
scritto in assembler in uno scritto in BASIC. 

E poi ancora, tutte le istruzioni e funzioni BASIC e 
ben 12 appendici veramente basilari. 
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DEBUG 


Questa rubrica è un’appendice della “Posta 
dei lettori” dedicata specificamente agli errori ri- 
scontrati nei listati che abbiamo pubblicato nei 
numeri precedenti. Se pensate di aver trovato un 
“bug” in un programma di Personal Software, 
scrivete a 

Personal Software 
Rubrica “Debug” 
Via Rosellini 12 
20124 Milano 

Pubblicheremo la vostra lettera con i commen- 
ti della redazione, rendendo così un servizio ai 
lettori. Raccomandiamo soprattutto estrema 
chiarezza nell’illustrare l’errore che pensate di 
aver individuato. Non fate come il lettore A.A. 
di Rovigo che, a proposito del gioco del NIM 
(Personal Software 2, pag. 42), ci scrive: 

Il programma... afferma presuntuosamente 
che il calcolatore sarà imbattibile se muoverà 
per primo. Ciò non è assolutamente vero, in 
quanto, per il fatto che il programma preve- 
de che i numeri dei fiammiferi vengano dati 
da GET (da INPUT è la stessa cosa), prati- 
camente il computer non può mai vincere. 
Sono pronto a scomettere. 


Il gioco del NIM 


Vi informo della presenza di un errore nel listato 
del “Gioco del Nim” (Personal Software 2, pag. 41). 

La linea interessata è la 4015 che fa parte della 
subroutine per la ricerca del numero massimo di 
fiammiferi e della riga su cui si trovano. In essa l’i- 
struzione W=W+1 genera un errore nella mossa del 
computer quando questo ne deve eseguire una a ca- 
so tra quelle possibili (linee 3090-3100). Ciò accade 
perché si può uscire dalla subroutine con un valore 
di W che non corrisponde a quello della riga avente 
il massimo numero di fiammiferi. 

Nell’esempio seguente, si esce con W=1 e M=3 
quando invece la riga 1 non contiene più fiammiferi. 


Posizione iniziale i TDI 
2 TII 
3 ITII 

Il giocatore toglie x 

3 fiammiferi dalla 2 TILI 

prima riga 3 TII 


Muove il computer L II 
> III 
3 III 


Pertanto l’istruzione W=W+1 va sostituita con 
W=H. 
Riterrei anche opportuno aggiungere la linea 


322 IF VAL(R$)=0 THEN 320 


per evitare che il giocatore risponda 0 alla domanda 

“QUANTI FIAMMIFERI”, risposta che attualmen- 
te viene accettata anche se errata. 

Ing. Ciro Golia 

Aversa 


Grazie per le sue corrette indicazioni. In effetti il 
computer oltre a giocar bene a suo favore, addirittura 
barava, nel senso che talvolta non solo non toglieva 
nessun fiammifero, ma ne aggiungeva, come nell’e- 
sempio che ci ha illustrato. La sua lettera è un esem- 
pio, che consigliamo ai lettori di imitare, di come il- 
lustrare con chiarezza un errore in un programma. 
Grazie. 


Il gioco del 15 


Scrivo per comunicarvi due errori nel listato del 
programma “Gioco del 15” versione Apple II (Per- 
sonal Software 1, pag. 76). La riga 210 deve leggersi 


210 IF ASC(M$)=70 THEN END 


il programma infatti attende il carattere “E” (codice 
ASCII 69) invece del carattere “F” (codice ASCII 
70) per finire. 

La riga 270 deve scomporsi in due righe 


270 IF N(1,J)=M GOTO 280 
275 NEXT JI 


Infatti il programma alle righe 260 e 270 dovrebbe 
in teoria ricercare nella tabella il numero che si è 
impostato e, avendolo trovato, dovrebbe inviare il 
controllo a riga 280 (e seguenti) per verificare se la 
mossa è tra quelle permesse, nel qual caso dovrebbe 
aggiornare la situazione e ricominciare o, in alterna- 
tiva, dare il MESSAGGIO “MOSSA NON 
PERMESSA”. Ma la riga 270 così come sta include 
la fine del ciclo nelle istruzioni la cui esecuzione è 
subordinata al verificarsi della condizione IF e non 
basta, infatti data la struttura della riga 270, il 
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DEBUG 


NEXT J,I non verrà in ogni caso eseguito. Difatti se 
al primo tentativo N(1,1)=M allora viene effettuato 
il salto alla riga 280 e l’esecuzione prosegue senza 
trovare il NEXT J,I altrimenti se N(1,1) #M allora 
vengono ignorate le istruzioni che seguono l’IF e l’e- 
secuzione prosegue (comunque) verso riga 280 anco- 
ra senza mai trovare il NEXT J,I naturalmente con 
effetti del tutto indesiderati. 
Attilio Grop 
Porpetto (Udine) 


Le cose stanno esattamente così. Grazie anche a lei 
per le preziose e corrette puntualizzazioni. 


Triste a dirsi, credo di aver trovato un errore 
(grave) nel programma “Gioco del 15”. L'errore è 
nell’algoritmo di generazione della disposizione ini- 
ziale dei 15 tasselli numerati nella matrice 4 X 4; ta- 
le algoritmo si basa infatti sulla convinzione (errata) 
che da qualunque posizione possibile dei tasselli si 
possa sempre giungere al risultato finale usando sol- 
tanto le mosse permesse. 

In realtà delle 16! (circa 2 x 10!3) possibili dispo- 
Sizioni iniziali dei tasselli soltanto esattamente la 
metà di esse sono risolvibili nel senso da noi inteso. 


Nei rimanenti 1013 (circa) casi, il meglio che si potrà 
Ottenere sarà: 


+1 2 3.4 
S 67 8 
9 101 2 
13 15 14 — 


€ non vi sarà alcun modo per sistemare il 14 prima 
del 15 senza distruggere l’ordine degli altri tasselli (a 
meno di non scardinare la scatola del gioco). Pur- 
troppo non sono riuscito a ritrovare l’articolo in cui 
il “maestro” Martin Gardner chiarisce questo aspet- 
to del gioco... 
Francesco Balena 
Bari 


Proprio così. In termini matematici si dice che la per- 
mutazione ottenuta è di parità dispari, e siccome 
quella da ottenere è di parità pari, è impossibile attra- 
versare la barriera: o si è di qua o di là. Un altro 
lettore, Giancarlo Prunotto di S. Pietro Moncalieri 
(Torino) che ci ha scritto una lettera analoga ha tro- 
vato l'articolo di Gardner: è a pag. 74 del primo vo- 
lume di Enigmi e giochi matematici (Sansoni). Pro- 
poste per eliminare l’inconveniente: partire dalla di- 
sposizione finale ed applicare ad essa alcune centi- 
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naia di mosse casuali, in modo da rimescolare i tas- 
selli (Balena), oppure controllare la parità della per- 
mutazione contando il numero di scambi per ordina- 
re il vettore (Prunotto). 


CONVERSIONI 


Raccogliamo in questa rubrica le conversioni 
dei programmi che abbiamo pubblicato nei nu- 
meri precedenti, realizzate dai lettori per i loro 
personal. Invitiamo tutti a contribuire, inviando- 
ci un listato, meglio se anche su supporto ma- 
gnetico, e una descrizione (un paio di pagine 
dattiloscritte) dei problemi incontrati nella con- 
versione, e delle tecniche usate per risolverli. In- 
viate la corrispondenza a 

Personal Software 
Rubrica “Conversioni” 
Via Rosellini 12 

20124 Milano 

Per cominciare pubblichiamo due conversioni 
del generatore di labirinti pubblicato nel numero 
scorso (Personal Software 3, pag. 67): una è per 
l’Apple II e una per lo ZX81. 


Generatore di labirinti per 
Apple II e ZX81 


Apple II 


Gent. Redazione, 
appena ho letto sul terzo numero della vostra rivista, 
il programma per la creazione di labirinti sulla pagina 
di testo del PET/CBM, ho pensato subito di adattarlo 
al mio computer. 

Come si sa, le locazioni di memoria riguardanti la 
pagina di testo dell'Apple vanno dalla 1024 alla 
2039, e fin qui nulla di eccezionale. 

L’inconveniente sta nel fatto che, pokando in or- 
dine successivo tali locazioni, si vedono comparire 
sullo schermo le righe riempite con il carattere stabi- 
lito, ma non progressivamente dalla prima alla ven- 
tiquattresima, bensì con dei salti ben precisi: in pra- 
tica vengono riempite nell’ordine la prima riga, la 
nona, la diciassettesima, poi la seconda, la decima, 
la diciottesima e così via fino all’ottava, sedicesima e 
ventiquattresima. 

Il generatore di labirinti non può ovviamente la- 
vorare in tali condizioni, ma ha bisogno di lavorare 
su numeri ordinati progressivamente. 

Ora proviamo a scrivere sull’Apple il seguente 
programma: 


10 HOME: A=1024 


20 FOR L=0 TO 80 STEP 40 
30 FOR K=0 TO 896 STEP 128 
40 FOR I=0 TO 39 

50 POKE (A+I+K+L),193 

60 NEXT: NEXT: NEXT 


Adesso diamo il RUN e vedremo, come per in- 
canto, che verranno riempite con delle A tutte le ri- 
ghe, dalla prima alla ventiquattresima, ma questa 
volta in perfetto ordine progressivo. 

A questo punto il problema è risolto. Basta di- 
mensionare un vettore, che chiamiamo S, di 
(80+960) elementi e creare un algoritmo che ponga 
S(H), per H da 80 a 1039, uguale di volta in volta 
alle locazioni da 1024 a 2039 nell’ordine imposto 
dalla ROM dell’Apple. E necessario che si lascino 
80 elementi liberi (da 0 a 79) per evitare che si ab- 
biano valori negativi durante la generazione del labi- 
rinto. 

In questo modo il programma potrà lavorare sugli 
elementi del vettore e saremo sicuri che i contrasse- 
gni o il carattere voluto verranno piazzati sullo 
schermo al posto giusto. 

Questa operazione indispensabile porta via quasi 
14 secondi, ma ovviamente viene effettuata solo al 
momento del RUN e non è più necessario ripeterla 
per la creazione dei successivi labirinti. 

Comunque, chi ha poca pazienza e possiede il 
TASC (per compilare il Basic in linguaggio macchi- 
na) potrà ridurre l’attesa a soli 3 secondi. 


Analisi del programma 


Le righe 110-170 servono a fare scrivere la presen- 
tazione del programma e a definire le stringhe da vi- 
sualizzare durante l'esecuzione dello stesso. 

La riga 210 dimensiona i due vettori S e Z e pone 
A = 1024 (prima locazione di memoria della pagina 
di testo). 

La riga 220 contiene l’algoritmo di cui abbiamo 
parlato, che permette di porre gli elementi del vet- 
tore S, da 80 a 1039, uguali alle locazioni da 1024 a 
2039 seguendo l’ordine che ci interessa. ; 

La riga 310 serve a riempire con spazi inverse il 
campo entro cui dovrà snodarsi il labirinto e natu- 
ralmente si può modificare a volontà seguendo i cri- 
teri chiaramente spiegati nel programma per il PET 
(Personal Software, 3 pag. 67). 

Le righe 410-460 contengono le istruzioni per 
creare il labirinto con strisce in positivo (nero) su 
sfondo inverso (bianco); esse riproducono pratica- 
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mente il concetto delle istruzioni 200-250 del pro- 
gramma per il PET/CBM. 


La riga 510 fa scrivere a pie’ di pagina che l’uten- 
te deve premere il tasto T per fare comparire il topo 
(nel nostro caso un asterisco); al posto della solita 
istruzione PRINT ho usato un’istruzione con cui 
vengono pokate le locazioni da 2000 a 2039 con il 
valore del codice ASCII (+128 per avere la stampa 
in modo normale) dei singoli caratteri della stringa 
già definita in precedenza. 

La riga 520 blocca il programma finché non viene 
premuto il tasto T. 

La riga 610 fa cambiare la didascalia a fondo pagi- 
na e fa comparire l’asterisco, che dovrà percorrere 
avanti e indietro il labirinto all’infinito, o almeno 
finché vorrà l’utente. 

Le righe 1010-1070 contengono le istruzioni che 
regolano il percorso del topo. Anche questo gruppo 
di istruzioni rispecchia il concetto applicato nelle 
istruzioni 1000-1030 del programma per il PET. 

In pratica, cosa deve fare il programma? 

Esso deve fare partire il topo dalla cella d’inizio 
del labirinto, con il vettore di direzione puntato in 
una direzione qualsiasi (nel mio programma ho mes- 
"a cia 0, ma va bene qualsiasi valore compreso fra 

e 3). 

Prima di fare Spostare il topo, dovrà esaminare il 
contenuto delle locazioni di memoria corrispondenti 
alle celle adiacenti e questo si ottiene facendo ruota- 
re il vettore di direzione in senso orario ogni volta 
di 90°, fino a trovare la cella giusta in cui fare spo- 
stare il topo. Questo va bene finché il percorso si 
Mantiene rettilineo. Alla prima deviazione, però, bi- 
sogna fare in modo che il vettore di direzione, pri- 
ma di effettuare la rotazione oraria di ricerca, ruoti 
di 180° cioè assuma il senso inverso a quello che 
aveva. 

Se non si usasse questo accorgimento, il vettore 
Fuoterebbe subito di 90° e, non trovando una cella 
di labirinto, ruoterebbe ancora di 90°: a questo pun- 
to troverebbe certamente una cella di labirinto, ma 
sarebbe esattamente quella da cui proviene il topo, 
che così tornerebbe sui suoi passi. 

I In conclusione il topo partirebbe dalla cella d’ini- 
zio, percorrerebbe il primo tratto rettilineo e torne- 
rebbe al punto di partenza, per poi ripercorrere lo 
stesso tragitto avanti e indietro all’infinito senza mai 
imboccare la deviazione. 

) La riga 1040 del mio programma contiene l’istru- 
zione per fare ruotare il vettore di direzione di 180°. 

La riga 1070 contiene l’istruzione per farlo ruotare 
di 90° in senso orario. 


74 


1040 G=G-2+4*(G<2) 
1070 G=G-—1+4*(G=0) 


I20 


1000 
1010 


1020 


1030 
1040 
1050 


1050 


1070 


1080 


RICOMINCIARE ESC PER 


YESTO 


ER FORI ro 
H=sH+t1s NEXT: MEXT: 


FOR 02000 TO 20258: 
+ASCMID$ (DE, O-1999,1)} +12 
FOR bW=1 TO UTAB V: HTAB INVERSE: 
FRINT Cs; MOFMAL 


REM 
2(1)= 
POKEE 


BI) L THEN FOFE 
: POEE S(J+2 (6) /2),Hl 
TO 42 
Sn 


REM ROTAZIONE £ 
IF GE*X THEN 4 
PEEK(S(J))-17 POKE 
644 THEN d=J-2 (6): 


TIORARIA DI 90 GFADI 


sHLs 


TO 2039: 
MID$(A$, (0-1999),1))+128: 
NEXT 

VTAR 24: HTAB 11 


THEN FORE SM), 1 
MH: GOTO 1040 


2): REM ROTAZIONE IRO GFADI 
=13 THEN : 

RICOMINCIA 

184) =27 THEN HOME: EMD: 

FIME DEL FROGRAMMA 


RET 


ORARIA DI 
SOTO 1050 
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Questo se vogliamo un topo “mancino” come 
quello di C. Bond. Ma per avere un topo 
“normale”, che obbedisca alla “regola della mano 
destra”, basta copiare alla riga 1070 l’istruzione del- 
la riga 440, e cioè 


1070 G=(G+1)*(G<3) 


che come sappiamo fa girare il vettore di direzione 
in senso antiorario. Avremo così un topo che, giun- 
to ad una diramazione, tenterà per prima la possibi- 
lità di girare a destra, poi quella di andare diritto ed 
in mancanza di entrambe tornerà indietro. 

Il risultato in ogni caso sarà lo stesso: il topo at- 
traverserà il labirinto senza fine. 

Per finire, le righe 1050 e 1060 consentono all’u- 
tente di interrompere la passeggiata del topo per 
uscire dal programma (premendo il tasto ESCAPE) 
© per fare disegnare un nuovo labirinto (premendo 
il tasto RETURN). 

Vi ringrazio per l’attenzione e vi invio distinti sa- 
luti. 

Giuseppe Famulari 
Messina 


P.S. Ad essere sincero, mentre provavo la mia 
versione per Apple del generatore di labirinti, ho 
avvertito un senso di pena per quel povero “topo” 
che, una volta imboccato il labirinto, lo percorreva 
avanti e indietro senza una meta, senza mai uscirne, 
e soprattutto imboccando ogni volta tutti i vicoli cie- 
chi, nessuno escluso, all'impazzata. 

Ho deciso quindi di rendere un po’ più furbo il 
nostro topo. 

Nel mio programma “Labirinti con topo furbo” il 
topo entrerà nel labirinto attraverso l’ingresso-uscita 
ed incomincerà a cercare la strada verso un apposito 
contrassegno che comparirà in un punto del labirin- 
to a rappresentare, diciamo, un pezzo di formaggio. 

Lungo il tragitto, però, lascerà dei segnali (un po’ 
il concetto del “filo di Arianna”); per di più, se du- 
rante l’andata imboccherà per errore qualche vicolo 
cieco, provvederà nel ripercorrerlo all’indietro a to- 
gliere i segnali lasciati, in modo da non trovarsi più, 
all'uscita, in vicoli ciechi. 

Una volta trovato il formaggio, lo mangerà e tor- 
nerà indietro verso l’ingresso-uscita del labirinto, se- 
guendo la pista contrassegnata dai segnali lasciati al- 
l’andata. 


REM LABIRINTI Poli) PURO 


REM VERSI 


RINT QHRS (7 
GET R$ 


HOME: o) 

FOKE 0 O (MID (D$&, 0-1 LI) +17 
NEXT 

FOR W=i TO 23: VTAB is HTAE 


C$1: NEXT: NORMAL 


y=TO TO 14: VTABR Vi HTAR 


THEN POKE 


1=1+2 (6) 
(G+1) XE 
© Ge SX THEN 
PEEK(SCIVI 176: 
6/4 THEN 


O 
E SCII4HL 
GOTO 420 


INVERSE: 


Gig” 


FOKE SCI+Z (8) #2) Hls 


(segue) 
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520 VTAB 24: HTAB li 
IF K$ THEN 

600 FOR E Gi TO ZE 
POKE 0,ASC(MID$ (C$, D-2000,1)) +128; 
NEXT 


1002. FOR 0=200 TO 120 STEP-40; 
POKE S{O), 17 FOR M=1 TD 200: N 
171: NEXT 


HT: 


1906 Mis 1703 (FOR UM=1 TO 2/00 NERI. 
1 Y SAI 
1010 E SJ}, 170: 6=9 
1620 DI 
doi EK (StN))=HL THEN POEE SN) ZA: 


POKE Sd) 171: 


G0T0 1070 
1021 IF PEEK(S(M))=17 
FOKE 501), 16 


va GOTD 192 


NÒ)=171 THEN FORE SCI, jo: 


2045 


MENT: 
IF PEEY 


z 10) 
IF PEEK(-163894)=2 


HOME: END 


7 THEN 


= (+1) X(6 
D2OBO  FOKE-15368,0: 


GDTO 2601 


ZX81 


Gent. redazione, 
sono uno studente di ventun anni, iscritto al terzo 
anno di Matematica e possessore da qualche mese di 
un Sinclair ZX81. 

Rispondendo al vostro cortese invito, vi invio una 
versione per ZX81 e ZX80 nuova ROM del genera- 
tore di labirinti apparso sul terzo numero della vo- 
stra notevole rivista. 

Le modifiche sono non molte, e in definitiva ba- 
nali: sono stati adattati l'indirizzo d’inizio del display 
file (linea 110), i valori della tabella delle direzioni 
(linee da 20 a 50) e il codice dei caratteri di video 
inverso (linea 160) e blank (linea 210, 250). Inoltre, 
non consentendo lo ZX l’indice 0 nei vettori, si è 
dovuto cambiare il campo di variazione per J: ora J 
va da 1 a 4; di conseguenza si è modificato il suo 
incremento modulo 4 (linea 170). 

Una nota: il labirinto generato dal programma co- 
sì com’è è quello di dimensione massima, ottenibile 
senza rischi; chi volesse, può provare a far partire le 
righe dalla 0: deve però verificare che non vi siano 
dei 128 nella parte finale del programma. Per avere 
labirinti più piccoli, basta ridurre i valori limite per I 
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10 DIM A(4) 

20 LET A(1)=2 

30 LET A(2)=66 

40 LET A(8)=—2 

50 LET A(4)=—66 

60 FOR 1=2 TO 20 

70 FOR J=0 TO 30 

80 PRINT AT 1, J; “mi” 

90 NEXT J 

100 NEXT I 

110 LET A=PEEK 16396+256*PEEK 16397+101 
120 POKE A,5 

130 LET J=INT (RND*4+1) 

140 LET I=J 

150 LET B=A+A(J) 

160 IF PEEK B=128 THEN GOTO 200 
170 LET J=J*(4<4)+1 

180 IF J <> | THEN GOTO 150 
190 GOTO 240 

200 POKE B,J 

210 POKE (A+B)/2,0 

220 LET A=B 


270 LET A=A-A(J) 


280 GOTO 130 


e J nelle linee 60 e 70, senza altre modifiche. Se poi 
si vuole piazzare il labirinto in un altro punto dello 
schermo, o far partire la “costruzione” da un altro 
punto, avendo cura che sia interno e con coordinate 
entrambi dispari, occorrerà sostituire il valore 101 
nella linea 110 con un x=1+33*4+&, dove 4 e & so- 
no rispettivamente la riga e la colonna del punto di 
origine del labirinto. 
Con i miei complimenti e cari saluti. 
Federico Frezza 
Roma 


PICCOLI ANNUNCI 


Commodore VIC 20 


Scambio software per VIC 20. Cerco cartucce o altre 
espansioni (ROM, RAM). Inviare lista, invierò la mia. 
Leonardo Fei, via A. Fava 6, 20125 Milano, tel. 02- 
6894142. 


Cambio gioco ROM Alien con altro gioco ROM per 
computer VIC 20. Attilio Muratori, via Roma 76, 
47100 Forlì, tel. 64221. 


Cambio programmi per VIC 20 su cassetta con altri 
diversi. Alberto Locatelli, via Sardegna 31, 20146 Mi- 
lano, tel. 496576 


Cambio/vendo software VIC 20 su cassetta. Dispon- 
go di ottimi giochi, programmi utility, matematici, gra- 
fici, dimostrativi (anche con S. Expander). Biblioteca 
100 programmi. Per lista inviare L. 1000. Carlo Co- 
mensoli, via S. Zenone 6/a, 25040 Demo (BS), tel. 
0364-61389 


Vendo/acquisto/scambio programmi VIC 20 tramite 
invio cassetta ed eventualmente listato. Chiedere 
elenco o inviare cassetta. Risposta sollecita a tutti. 
Michele Capo, viale Petrarca 90, 57100 Livorno, tel. 
402130. 


Vendo word processor per VIC 20. L. 10000 su cas- 
setta, L. 7000 listato. Funziona con stampante 80 
colonne. Possibilità registrazione testo su cassetta. 
10 comandi. Piero Mellano, via Belvedere 78, 10028 
Trofarello (TO) 


Vendo giochi per VIC 20 a basso prezzo. Per riceve- 
re la lista dei giochi spedire L. 350 in francobolli a 
Marco Vercellesi, via Mario Pichi 11, 20143 Milano, 
tel. 02-8394831. 


Vendo/cambio programmi VIC 20 giochi, educativi, 
3,5 K. Richiedere lista a Pautasso Francesco, via Ce- 
sare Battisti 22, 22070 Casnate (CO), tel. 031- 
451328 


Cambio per VIC 20 programmi di vario genere, e 
esperienze sulla grafica ad alta risoluzione. Maurizio 
Mellone, via Sabbionara 9, 36061 Bassano del Grap- 
pa (VI), tel. 0424-20015. 


Vendo per VIC 20 breve programma per aumentare 
la capacità di schermo da 506 a 832 caratteri 
(+65%). Inviare L. 5000 in contanti a: Massimo 
Schianchi, via G. Miranda 3, 80131 Napoli. 


Vendonsi programmi gestionali per VIC: Condomi- 
nio, Archivio clienti, word processing, programmi di- 
dattici; disponibili su disco o cassetta. Vendonsi foto- 
copie letteratura tecnica italiana e estera sul VIC 20. 
Francesco Del Vecchio, via Amoruso 34, 70124 Bari, 
tel. 510322. 


Scambio programmi per VIC 20 e cerco possessori 
del medesimo per formare una banca programmi, ne 
possiedo circa 250; chi è interessato scriva a Lionel- 
lo Zanella, via Virgilio 21, 74025 Marina di Ginosa 
(TA), tel. 099-627090. 


Scambio/vendo programmi e informazioni con utenti 
VIC 20 anche su cassetta. Assicuro e chiedo massi- 
ma onestà sia per lettera che per pacco. Attendo 
risposte anche per telefono. Gabriele Braga, via Bel- 
laria 28, 40139 Bologna, tel. 545469. 


Cerco per VIC 20 programma di uso per radio libera 
per gestione archivio dischi e cassette. Per ulteriori 
informazioni sulla quantità e sul tipo di gestione 
aspetto telefonata (ore pasti). Roberto Oselladore, 
via Corridoni 34/1, 30170 Mestre (VE), tel. 041- 
59896 


Cambio programmi e idee per VIC 20. Massima se- 
rietà. Uso drive, superex, monitor assembler. Gio- 
vanni Ferrero, via Virgilio 4, 43100 Parma, tel. 
494458 


Cambio/vendo/compro software VIC 20 su cassetta. 
Dispongo di ottimi giochi, prog. utili, suono. etc. Per 
le liste inviate L. 1000. Fate offerte di vendita o 
scambio. Rispondo a tutti. Giorgio Ferrario, via Adua 
1, 21052 Busto Arsizio (VA) 


Compro programmi registrati su cassetta per VIC 20. 
Renato Bovenga, viale Miramare 75, 34100 Trieste, 
tel. 413205 


Cambio/vendo software per il VIC 20 a modestissimi 
pressi. Telefonare (sera) a Roberto Silva, via L. Ca- 
gnola 3, 20124 Milano, tel. 02-317228 


Cerco software e riviste (anche in lingua straniera) 
per VIC 20. Vendo interfaccia per registratore VIC 
1001. Contatto possessori VIC per scambio software 
vario. Davide Zegna, via Marco Polo 1, 17025 Loano 
(SV), tel. 019-670582 


Cambio o vendo software per VIC 20 moltissimi pro- 
grammi per gestione, tecnica, gioco; legge 373, 
equo canone, prospettiva, etc. Maurizio Mellone, via 
Sabbionara 9, 36061 Bassano del Grappa (VI), tel. 
0424-20015 


Vendo nastro con 5 giochi per VIC 20 a L. 7000. 
Massima serietà. Per informazioni telefonare 0971- 
582283 chiedere di Michele. Oppure scrivere a Mi- 
chele Piscopo, piazza Marconi 9, 66013 Chieti. 


Commodore PET/CBM 


Cambio programmi per PET 4032 su cassette. Invia- 
re lista, invierò la mia. Gianni Musci, via Lodi 65, 
20139 Milano, tel. 02-5690238 


Vendo/scambio per PET/CBM Commodore prog. va- 
ri: RTTY, Mailbox, QRB Locat., gestionali, Ingegneria 
per Apple RTTY, Mailbox, CW, Compilatore tasch 
(cerco prog. paghe, stipendi, compilatore per CBM/ 
PET). Paolo (IW6MEQ) Stella, via N. Moscardelli 28, 
67100 L'Aquila, tel. 23273 


Vendo o cambio programmi di ogni genere per PET/ 
CBM. Richiedete l'elenco. Andrea Gambedotti, via 
Campo sportivo 12, 12032 Barge (CU) tel. 0175- 
926248 


Vendo programmi paghe, contabilità generale e sem- 
plificata, 373, condomini, alberghi, ottici, studi medi- 
ci, fatturazione e magazzino, word processing per 
PET/CBM 3032/4032. Tel. 0972-31669 dalle 14 alle 
19. Alfredo Casciano, via Mons. Virgilio 105, 85329 
Venosa (PZ) 


Cambio programmi di tutti i generi per PET/CBM se- 
rie 3000. Se possibile inviare lista. Non rispondere 
se non intenzionati. Prometto pronta risposta a tutti. 
Andrea Chiuppi, via Diocleziano 41, 33010 Feletto 
Uberto (UD), tel. 0432-681479 


Vendo giochi per PET/CBM Basic 4.0 vasto assorti- 
mento. Richiedere listino con invio di L. 800 in fran- 
cobolli. Scambio anche giochi ma solo con altri di 
uguale valore e interesse. Antonio Di Gilio, via Mon- 
te Cervino 1, 30030 Favaro Veneto (VE), tel. 041- 
611259 


Cambio software per PET serie 4000-8000 su disco 
o cassetta. Dispongo di oltre 500 programmi tra ge- 
stionali e giochi. Rispondo a tutti. Cerco data base a 
campi variabili su floppy 4040-8050. Giovanni Nuvo- 
li, via Ulumos 3, 07018 Pozzomaggiore (SS), tel. 
079-801276 


Vendo cassetta programmi sonori PET/CBM: Prono- 
stici totocalcio, Autopista, Blackjack, Battaglia navale, 
Tombola, Pallina. L. 25.000+SP. Posseggo program- 
mi pubblicati su riviste sonorizzati e corretti. Luigi 
Cuomo, via Filangieri 72, 86095 Frosolone 


Vendo software civile PET stampa, anche su casset- 
te, supertestato zona sismica, telaio, fondazioni, gri- 
gliati, verifiche sezioni, 373, ecc. Ing. Giovanni Ga- 
Viani, via Finelli 3, 40100 Bologna, tel. 051-230126 


Sinclair ZX80-ZX81 Spectrum 


Vendo oltre 30 programmi (Corse dei cani, Master 
mind e altri 28) per ZX80 nuova ROM e ZX81 per 
sole L. 9000 già registrati su cassetta. Livio Pomi, via 
B. Giacomini 2, 21051 Arcisate (VA), tel. 470343 


Compro riviste sui computer inglesi ed americane ed 
inoltre software, listati di qualsiasi genere e cassete 
per ZX81. Vita Luciano, via Oreste Pennati 1, 20052 
Monza (MI), tel. 039-367029 


Vendo ROM per CBM 40/8032-3032 Basic 4. Ag- 
giunge 16 com. al Basic tra i quali: contr. cursore, 
sort alfanumerico, somma, sottraz., moltipl. in tripla 
precisione (24 cifre), puntegg. autom. numeri, input 
controll., etc. Specificare se ROM 9000 o A000. Co- 
sto con istruz. L. 200.000. Giuseppe Mannino, viale 
Primavera 3/6, 16148 Genova, tel. 010-332827 


Vendo programma completo per relazione geotecni- 
ca di calcolo dei cedimenti di fondazioni superficiali 
poggianti su terreni stratificati per CBM 3032 Com- 
modore versione video e stampante. Ing. Alvaro Al- 
bani, via Castelfidardo 7, 47037 Rimini (FO), tel. 
0541-25765 


| lettori che voglio vendere, comperare o scambiare 
software, o desiderano dare informazioni possono 
compilare il tagliando pubblicato in fondo a questa ru- 
brica. Il servizio è gratuito. La redazione si riserva il 
diritto insindacabile di rifiutare, sospendere o modifica- 


re qualsiasi inserzione. 


Gli annunci sono riservati ai privati o ai club senza 


scopo di lucro. 


Daremo la precedenza agli annunci che si riferiscono 
a software, programmi, libri e riviste, club per personal 
computer. 


indicazioni: 


Accanito gruppo di programmatori ha organizzato 
un'iniziativa che in Italia non ha uguali: mettiamo a 
disposizione di tutti coloro che ci scriveranno una 
vastissima biblioteca di programmi inediti che girano 
sullo ZX80-81. Per accedervi basta spedire almeno 
un programma con L. 1000 in francobolli specifican- 
do la marca del Vs. computer e le Vs. preferenze: vi 
rispediremo minimo 3 programmi. Scrivete a questo 
indirizzo: Reggiani Franco, via Zabarella 15, 32028 
Piove di Sacco (PD) 

Cerco sinclairisti nella sola zona di Napoli per scopo 
fondazione club. Emilio Triunfo, via Cumana 9, 
80126 Napoli, tel. 081-633274 


Un annuncio sarà più efficace se seguirete queste 


® La prima parola deve essere esplicativa del vostro 
messaggio: scambio, vendo, compro, cerco... Per ren- 
derla più evidente la stamperemo in corsivo. 


® Nel testo, riferitevi ad un solo tipo di computer (VIC 


20, ZX80,...). L'annuncio apparirà sotto la testata relati 
va a quel computer. Se volete fare un annuncio per 


due o più computer, compilate due tagliandi. 


® Date il vostro recapito con esattezza: nome e cogno- 
me, via e numero, cap e località, provincia, prefisso e 
numero telefonico. 


Vendo packages software di ingegneria civile e cal- 
colo strutture in zona sismica per Sinclair ZX81 16 K. 
Carlo Conticelli, largo G.I. Molina 4, 40138 Bologna, 
tel. 051-305458 


Idee nuove per lo ZX81. Questo mese: ZX HiFi test. 
Per ZX81 senza modifiche o aggiunte hardware an. 
che solo 1 K RAM!! Per informazioni e prenotazioni: 
Dionisio Castello, via Basilicata 15, 04019 Terracina 
(LI) 


Vendo o scambio programmi per ZX81 da L. 3000 a 
5000 (Nim, Impiccato, Slot machine, Explorer, Deci- 
dere, Combattimento su Londra e tanti altri. Linguag- 
gio macchina e Basic). Scrivere o telefonare per li- 
sta. Marco Carrubba, via M. Campionesi 29, 20135 
Milano, tel. 02-585294 


Vendo programmi per ZX81-ZX80, veramente nuovi, 
inediti. Telefonare o scrivere a Stefano Ricci, via 
Fanny Tacchinardi 21, 00168 Roma, tel. 06-6274831 


HP 85/87 


Cerco possessori di HP87/85 per scambio idee e 
programmi. Giorgio Scaglianti, via Ferrara 10, 44034 
Copparo (FE) 


Cerco lettore esperto disposto tradurre in linguaggio 
HP-85 programmi pubblicati su questa rivista. Per 
accordi scrivere a Francesco Piccione, via delle 
Querce 32, 95030 Gavina di Catania 


Software ZX81 vendo programma per fatturazione, 
preventivi, conti e listino prezzi e articoli a L. 30000 
in cassetta. Tel. (059) 683923 ore pasti. Ivano Pongi- 
luppi, via Roosevelt 63, 41012 Carpi (MO) 


Compro ROM assembler e Basic per ZX 80 o ZX81 
Sinclair. Cerco principalmente il listato di queste due 
ROM. Scrivere per accordo a: Giosuè Caliano, via L. 
Guercio 150, 84100 Salerno, tel. 089-399750 


Sinclair club costituito da utenti ZX per scambio idee, 
programmi e esperienze hardware. L'adesione dà di 
ritto alla ricezione di un bollettino trimestrale e a faci- 
litazioni varie. Quota annuale L. 18000. Sinclair Club, 
via Molino vecchio 10/F, 40026 Imola (BO) 


Vendo cassetta scacchi alta risoluzione, 10 livelli, alta 
velocità per ZX Spectrum 48 K. Per chi avesse il 16 
K, lo converto in 48 K per 120000 lire. Dante Vialet- 
to, via Gorizia 5, 21053 Castellanza (VA), tel. 0331- 
500713 


Vendo cassetta linguaggio Pascal completa di ma- 
nuale per Spectrum 48 K a L. 40000. Per chi avesse 
solo il 16 K lo posso convertire in 48 K per L. 
120000. Dante Vialetto, via Gorizia 5, 21053 Castel- 
lanza (VA), tel. 0331-500713 


Vendo per ZX81 programma Tartinville (per ricerca 
capisaldi in equazione parametrica di 2° grado) a L. 
15000 tutto compreso (cassetta+spese spedizione). 
Posseggo inoltre programmi di vario genere. Bruno 
Cardella, via Calabria 4, lotto 43, 90100 Palermo, tel. 
512302 


Programma Pert per ZX80/81 ottimizzazione progetti 
sino a 350 attività, ottima documentazione in italiano 
con teoria ed esempi, offro a L. 25000 compresa 
spedizione. Scrivete per informazioni a Giovanni 
Servi, via Giovanni XXIII, 41012 Carpi (MO) 


Cerco programmi per ZX81 e in special modo gli 
scacchi. Scambierei con i miei programmi. Vendo 
inoltre cassette 2 giochi per Sinclair 16 Kbyte molto 
validi e a prezzi modesti. Telefonare o scrivere a 
Andrea Lombardo, corso Sempione 39, 20145 Mila- 
no, tel. 02-382897 


Sinclair club costituito per scambi di software, idee, 
schemi hardware per ZX. Preparazione di un bolletti- 
no trimestrale per i soci. Arrigo Bondi, via Molino 
Vecchio 10/F, 40026 Imola (BO) 


Programmi rifinitissimi originali fantastiche novità as- 
solute ZX81/80 8 K. Due cassette TDK 90 minuti 
zeppe ambo i lati L. 18000 ciascuna. Tutte due, total- 
mente diverse L. 34000. Incredibile: ogni program- 
ma vi costa meno di 500 lire! Garantisco assoluta 
soddisfazione. Bruno Del Medico, via Torino 72, 
04016 Sabaudia (LT) 


DAI 


Vendo copie del “DAI Firmware Manual" contenente 
elenco POKE e PEEK possibili e mappe complete di 
memoria e listato sorgente del Basic implementato 
sul DAI P.C. 48 K, commentato, 250 pag., rilegato. 
Roberto Porta, corso Cavallotti, 27, 15100 Alessan- 
dria, tel. 0131-63016 


Cerco utenti di computers DAI disposti a scambiare 
idee e programmi circa il suddetto apparecchio. Per 
accordi scrivere o telefonare a: Stefano Filippi, via 
Monte Grappa 5, 32030 Fonzaso (BL), tel. 5165 


Scambio/vendo programmi ingegneria civile edile 
predisposti per HP85 con ROM matrix e ROM pro- 
grammazione avanzata e stampante esterna Centro- 
nics 150 cps bidirezionale. L'HP ha espansione a 32 
K e supporto esterno su nastri. Sergio Andruzzi, via 
Paolo Bentivoglio 13, 00165 Roma, tel. 06-6376113 


Atari 


Vendo e cambio per Atari 400-800 molti programmi 
gioco e utility originali americani su cassetta o disco. 
Marcello Guidotti, via Cutilia 27, 00183 Roma, tel. 
06-778896 


Cambio/vendo Atari software escluso programmini 
copiati da riviste. Antonio Sciarra, via Lambro 1D, 
00199 Roma, tel. 06-8451572/867869 


Vendo per DAI 48 K fantastici programmi garantiti 
inediti con colore e suono. 10 programmi su cassetta 
(Invasori, Midway, Reverse, etc.). L. 20000 contrass. 
1700 in più. Dispongo anche centinaia di programmi 
per Sinclair a prezzo bassissimo. Per informazioni 
allegare francobollo. Avena Vincenza, via Garibaldi, 
04016 Sabaudia (LT) 


Esperto programmatore C.N.R. e allievo accademia 
d'arte vendo per DAI P.C. (e per altri P.C. per chi 
possa contattarmi) cassette con mie opere di com- 
puter art (astratto e figurativo). Scrivere per informa- 
zioni e prezzi allegando L. 1000 a: Alberto Pollastri, 
via di Pratale 28B, 56100 Pisa, tel. 050-20584 


Vendo per DAI software e documentazione. Scacchi, 
Assembler, Text editor, Caratteri mode 5, giochi, 
grafica, simulazione, DCE bus, firmware ROM, sche- 
mi elettrici. Salvatore Pennisi, via Mario Borsa 63, 
00159 Roma, tel. 06-4387248 


Apple Il 


Svendo per Atari 400-800 a prezzo di realizzo car- 
tucce giochi e linguaggi complete di manuali di istru- 
zioni. Telefonare a Giorgio al 055-252278. Giorgio 
Lapi, via Scandicci Alto 30, 50018 Scandicci (FI) 


Compro, pagando bene, programmi per Atari 400 sia 
utility che di game. Andrea Verona, via Mascheroni 
12, 20145 Milano, tel. 02-495814 


Texas TI 99/4A 


Cerco utilizzatori per TI 99/4A in Pavia per creazione 
club novantanoviano, scambio software e idee di 
hardware con amici del TI 99 di tutta Italia. Uberto 
Zaga, via Ferrini 77, 27100 Pavia, tel. 470367 


Vendo oppure cambio cartuccia per home TI 99/4A 
video games 1. Contiene 3 giochi in inglese, france- 
se e tedesco: flipper, tiro a segno, domino con velo- 
cità, livello etc. a L. 50.000, compro anche program- 
mi. Adriano Sarzina, via Bellini 17, 25077 Roè Vol- 
ciano (BS) 


Vendo programma per calcolo muro generale in ce- 
mento armato per zone sismiche e non sismiche per 
Apple Il. Crescenzio Gallo, via Indipendenza 51, 
71041 Carapelle (FG), tel. 0885-95242 


Scambio programmi di qualsiasi tipo per Apple Il (16 
K). Inviate la vostra lista ed io vi risponderò con la 
mia. Antonio Curci, via Nuovo Ponte 40, 84086 Roc- 
capiemonte (SA) 


Vendo soft a 1 K per ZX81. Eseguo montaggi di kit 
espansione per ZX80-81 a prezzi interessanti. 
Scambio informazioni su computer Sinclair. France- 
sco Buemi, via G. Barbereschi 201/5B, 16149 Ge- 
nova, tel. 010-267120 


Vendo programma per calcolo QRB per ZX81 regi- 
strato su cassetta adatto sia per stampante che video 
a L. 15000. Inoltre vendo programma per controllo 
contest dei QSO doppi L. 15000 su cassetta. Lean- 
dro laccarino, via Vanassina 2/A, 80073 Capri, 081- 
8379146 


Vendo per ZXB1 programmi originali inglesi: Pack- 
man, Defender 3D, Simulazione volo, Defender, 
Zombies, vasto assortimento. Oltre 100 voci. Inviare 
L. 2000 per listino completo. Stefano Nocilli, via Giu- 
seppe De Leva, 00179 Roma 


Scambio programmi per computer ZX81, ZX80 nuo- 
va ROM, ZX Spectrum, cassette, software, informa- 
zioni e dati tecnici. Scrivere o telefonare ore pasti. 
Armando Pavese, via Cottolengo 59, 13051 Biella, 
tel. 015-27353 

Per ZX81 programmi assolute novità: Scacchi Il, 
Computacale, Calculex Il, Mazogs, Scramble, Maze- 
man, Asteroids, Galaxian a L. 9000/15000 cad. Elen- 
co gratis a richiesta. Vendo anche espansione 32 K 
assemblata in contenitore metallico e garantita L. 
150000. Massimo Soncini, via Monte Suello 3, 
20133 Milano, tel. 02-727665 
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Cambio/vendo ì più famosi package professionali 
CP/M e non per Apple Il: potenti data base relazio- 
nali, linguaggi, word processing. Luca De Matteis, via 
S. Lavagnini 26, 50129 Firenze, tel. 055-474739 


Hei! Mio fratello ha un Apple Il che usa per lavoro. lo 
ci gioco e mi piacerebbe cambiare i miei programmi 
con i vostri. Ho 14 anni. Francesca Melani, v.le Ippo- 
lito Nievo 100, 57100 Livorno 


Cambio/vendo software per Apple Il, scientifici, ge- 
stionali, utilità, giochi, vasta scelta. Inviare la lista a 
cui risponderò con la mia. Massimo Bracci, via della 
Repubblica 10, 56030 Montecalvoli (PI), tel. 0587- 
748042, ore pasti. 


Vendo programma strutturato analisi edifici in ce- 
mento armato (telai e/o mensole) sollecitati da cari- 
chi permanenti e/o distorsioni termiche e forze si- 
smiche statiche o dinamiche. Apple Il. Giovanni Vio- 
la, via Pietragrossa1, 66100 Chieti, tel. 0871-67477 


Compro, cambio, vendo software per Apple Il. Clau- 
dio Citarella, via Parroco Federico 41, 80045 Pompei 
(NA), tel. 081-8632946 


Cambio programmi e giochi per Apple Il. Cerco nuo- 
vi sistemi word processing per Apple Il. Salvatore 
Gentile, via Quarto 11/1, 16147 Genova, tel. 010- 
388687 

Scambio programmi per Apple II. Scrivere a Giusep- 
pe Milisich, viale E. Caldara 13/3, 20122 Milano 


Scambio diagrammi di flusso di tutti i generi e tipi, 
vendo e compero programmi per calcolatrici serie TI 
della Texas (programmabili 53-59), miglioro i pro- 
grammi per le stesse e cerco amici per scambio in- 
formazioni. Andrea Rimicci, via delle Fornaci 12/1, 
17011 Albisola Capo (SV) 


Vendo traduzioni dall'inglese dei manuali dei moduli 
di comando SSS "Video Chess" (L. 3.000) e “TI 
Invaders” per computer TI 99/4A. Cerco inoltre pos- 
sessori di 99/4A per scambio di idee e software. 
Filippo Cerulo, via Mercato 9, 82038 Vitulano (BN) 


Cerco programmi di tutti i tipi ma specialmente giochi 
per il personal computer Texas TI 99/4A. Acquisto 
programmi scritti o in cassetta. Telefonate offerte ore 
pasti. Renato De Momi, via G. Bertacchi 3/A, 35100 
Padova, tel. 049-758328 


HO il computer della Texas Instruments TI 99/A e 
sono alle prime armi in fatto di programmazione. 
Cerco programmi possibilmente giochi per detto 
‘computer. Possibilmente scritti o in cassette. Inviare 
lista e prezzi. Adriano Modolo, viale S. Marco 134, 
30173 Mestre (VE), tel. 955831 

Cerco programmi e giochi per home computer TI 
99/4A da acquistare. Sandro Magni, via Vetta d'Italia 
2, 20052 Monza, tel. 039-735208 


Cambio software per TI 99/4A. Mi interessa tutto. 
Speditemi la lista dei programmi, vi manderò i miei. 
Lorenzo Tomellini, via C. Ferrari, 20015 Parabiago 
(MI) 


Acorn Atom 


Cerco utenti Atom Acom per scambio idee e pro- 
grammi. Carlo Giuliano, via S. Agostino 193, 56100 
Pisa, tel. 40261 


Scambio esperienze e programmi per l'Atom Acorn 
che è in mio possesso. Preferirei programmi di gio- 
chi, utilities, animazione grafica e vari. Amici dell'A- 
tom, perché non creiamo un club? Giosuè Caliano, 
via L. Guercio 150, 84100 Salerno, tel. 089-399750 


Sharp 


Vendo software di vario genere per Sharp M280B. 
Programmi di tutti i generi. Disposto anche ad effet- 
tuare eventuali scambi. Prezzi veramente mai visti! 
Affrettatevi! Stefano Lazzaro, via Monte Sabotino 2, 
35100 Padova, tel. 049-22675 


Vendo per Sharp MZ-80 K la serie completa dei pro- 
grammi per lavorare in linguaggio macchina, compo- 
sta da Relocatable Loader+Assembler+Symbolic 
Debugger+Text editor+Machine language, su cas- 
setta, corredati dei tre relativi manuali per l'uso. Il 
tutto L. 120.000. Giovanelli Claudio, via Ripamonti 
194, 20141 Milano, tel. 02-536926 


TRS-80 


Cerco hobbisti disposti a scambiare esperienze su 
TRS 80 o VGS. Mi interessano applicazioni radioa- 
matoriali. Cerco linguaggi residenti su cassetta. PO 
BOX 154, 05100 Terni 


Osborne | 


Cercasi utilizzatori Osborne | per scambio software e 
notizie esperienze. Paolo Medici, via S. Cafasso 21, 
10132 Torino, tel. 011-898739 


Triumph Adler 


Sono in possesso di un Triumph Adler mod. P2. 
Cerco programmi per l'elaborazione mod. 740. Cer- 
co inoltre altri programmi, giochi, da inserire in que- 
sto computer. Nerio Culpo, via F. Baracca 9, 22060 
Carugo (CO), tel. 762308 


Cerco utenti di Alphatronic P2 per scambio di infor- 
mazioni, programmi etc. Gaetano Celentano, via Or- 
za 3, 84087 Sarno (SA), tel. 081-941285 


CP/M 


Diversi 


Vendo metodo anti-list per Apple, PET, PET old 
ROM, VIC 20. Inoltre vendo o cambio software per 
suddetti e TRS80, ZX80/81, Atari, HP, TI58C/59, 
PC1201. Mando lista a chi telefona o scrive allegan- 
do L. 500. Paolo Marcato, via C. Battisti 3, 35027 
Noventa Padovana (PD), tel. 049-502475 


Compro listati di programmi per il PET 3032 e ZX80/ 
81 oppure altri che si possono adattare al PET. Man- 
date informazioni e mettetevi in contatto con Antonio 
Musto, viale di Levante 64, 71042 Cerignola (FG), 
0885-29316 


Cambio/vendo software per Apple Il e TRS-80 mod. 
Ill. Giovanni Carrella, via Felline 11/C, 84100 Saler- 
no, tel. 089-354854 


Vendo splendidi programmi per VIC 20, Tandy, Ap- 
ple Il, ZX80/81, PET/CBM, TI 58/59, DAI. Inviare L. 
500 per la lista del software che vi interessa a: Gior- 
gio Ferrario, via Adua 1, 21052 Busto Arsizio (MI) 


Vendo software di ogni tipo per personal VIC 20 e 
Sharp. Posso inoltre procurare fotocopie di manuali 
del VIC 20. Scrivere o telefonare a Roberto Minoia, 
via Ippocastani 10, 20152 Milano, tel. 02-4595642 


Vendo software civile PET ZX81 completissimo, plu- 
ritestato, manuali, verifica sez. telaio piano, fondazio- 
ni, muri, 373, etc. (solo PET) zona sismica, analisi 
dinamica, etc. Ing. Giovanni Gaviani, via Finelli 3, 
Bologna, tel. 051/230126 


Hardware 


Vendo stampante per ZX81+4 rotoli 
carta+espansione 16 K originale a sole L. 250000. 
Gianni Fassi, via P.pe Eugenio 65, 00185 Roma, tel. 
7316539 


Cerco ZX81 o ZX80 usato ma perfettamente funzio- 
mante senza altri accessori o programmi e a prezzo 
veramente conveniente. Ernesto Boracchi, via Ron- 
chetti 2, 21013 Gallarate (VA), tel. 0331-795649 


Cambio 3 alimentatori professionali Leybold nuovis- 
simi (0-300 V con più uscite indipendenti) + analiz- 
zatore di corrente Leybold (valore totale dei 4 appa- 
recchi L. 1300000) con stampante o plotter. Rocco 
Macrì, via S. Pietro Campagna 154, 06081 Assisi 
(PG), tel. 812379 


Cambio ZX80+16 K con monitor. Compro, vendo, 
cambio software TI99/4A. Salvatore Sbacchis, via 
Don G. Minzoni 2/E, 90143 Palermo, tel. 091- 
547670 


Vendo VIC 20, espansione alta risoluzionex3 K 
RAM, espansione linguaggio macchina, cartridge 
“Alien”, joystick, paddle, libri, moltissimi programmi, 
il tutto a prezzo strepitoso! Telefonare ore pasti. 
Alessio Camplone, via Martiri della Resistenza 42, 
60125 Ancona, tel. 071-899520 


Vendo Centronics 737 con manuale originale e soft- 
ware di utility. Enrico Stomeo, C.P. 654, 30100 Ve- 
nezia, tel. 041-762042 


Vendo CBM 3022 floppy disk da 1 megabyte compu- 
ting stampante 3032 interfaccia parallela RS232 mo- 
dem acustico e 200 programmi con Basic Plus e 
WPP al miglior offerente. Pier Giorgio Perron Cabus 
corso S. Martino 4, 10122 Torino, tel. 530656 


Vendo VIC 20+unità cassette Commodore a sole L. 
500.000. Il tutto è nuovo e ancora imballato. Claudio 
Giacometti, via A. De Gasperi 22, 45026 Lendinara 
(RO), tel. 0425-61871 (ore ufficio) 


Vendo HP-41 C completo pile e alimentatore corren- 
te, lettore schede, stampante, 3 moduli memorie e 
relativo contenitore, custodia, manuali istruzioni per 
41 C, manuale stampante e lettore, guida program- 
mazione, tutto in italiano. L. 1200000. Possibilità 
prezzo speciale per schede vergini, contenitori pro- 
grammi e libri HP. Rotoli carta termica e copie rivista 
club HP. Telefonare ore ufficio. G. Willy Aletti, via 
Tiziano 9/5, 20145 Milano, tel. 02-6073971 


Vendo espansioni 16 - 4 - 32 K per ZX80 e 81, 
generatore di caratteri a L. 38000 kit slow kit per 
ZX80 a L. 25000 modulo porte input/output cassette 
giochi a L. 12000 tutto per ZX. Pagamento anticipato. 
Alberto Bassi, via M. Bonavita 35, 47100 Forlì, tel. 
0543-24345 


Vendo anche separatamente a miglior offerente: 
TRS-80 mod. | lev. 2 con 16 K RAM, video verde e 
tastierino numerico+expansion interface con 32 K 
RAM+stampante Centronics 770+software vario. 
Telefonare lun.-ven. ore pasti a Franco. Francesco 
Fedele, via Antagora 26, 00124 Roma (Casalpaloc- 
co), tel. 6094745 


Vendo ZX80+8 K ROM+16 K RAM+ 
alimentatore+cavi+programmi tutto in ottime condi- 
zioni a L. 350000 tratt. Telefonare ore pasti. Stefano 
Lazzaro, via Monte Sabotino 2, 35100 Padova, tel. 
22675 


Vendo CBM 4040 floppy disk usato pochissimo. 
Vendo anche progr. per gestione archivio dati (log. 
radioamatori, elenchi clienti, telef. biblioteca ecc.) 
con defin. voci, ricerca veloce dati, aggiorn. ecc. (per 
8032). Roberto Vendrame IN3VRR, via Maso della 
Pieve 72, 39100 Bolzano, tel. 0471-940615 (ore pa- 
sti), 41338 (int. 286 ufficio) 


Software sotto CP/M e per Olivetti M20, già pronto 
e/o su commissione. Prezzi molto convenienti. Ri- 
chiedete il catalogo gratis a: Mario Magnaghi, via 
Beldì 19, 28068 Romentino (NO) 


Metto a disposizione un computer CP/M con 48 K 
RAM e interfaccia 8+8 bit I/O ed 1 scheda MC6800 
con I/O parallelo per effettuare esperienze e studi di 
robotica con altre persone interessate. Graziano 
Ceccotti, via Livornese Est 124, 56030 Perignano 
(PI), tel. 0587-616046 


Cobol! 

Vendo sorgenti di programmi gestionali inguaggio 
Cobol, già ammortizzati e collaudati con relativi ma- 
nuali di: contabilità generale e adempimenti IVA a L. 
800000; fatturazione immediata e differita con prov- 
vigioni agenti e ricevute a L. 400000; gestione ma- 
gazzino commerciale a L. 500000; e altri programmi 
gestionali. Telefonare ore 19-20 allo 0376-534087. 
Dino Cominotti, via Saliceto 18, 46029 Suzzara (MN) 


Riviste 


Vendo arretrati “Elettronica oggi", “Elettronica 
pratica", "Nuova elettronica", "Radio kit Elettronica" 
agli attuali prezzi di copertina. Compro "Bit" n. 3 ed 
"Informatica oggi" n. 4 e 7/8. Marco Fabbri, via C. 
Rocco 48, 80043 Madonna dell'Arco (NA), tel. 081/ 
8981107 


1 Sei un lettore di PERSONAL-SOFTWARE e vuoi entrare in contatto con tutti gli altri lettori per comperare, cambiare o 
1 vendere software? Spedisci questo tagliando a Gruppo Editoriale Jackson - Via Rosellini, 12 - 20124 Milano 
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La più diffusa 

rivista italiana 

di elettronica pratica 
allarga l'orizzonte 

e parla anche 

di personal computer. 


NI 


Sperimentare, /a più autorevole 

e diffusa rivista di elettronica 
pratica, tende a perfezionare 

i suoi contenuti e ad ampliare 
l'orizzonte. Oltre alle realizzazioni 
per gli amatori e gli specialisti 

di elettronica nei più svariati 
campi, la rivista, da questo 
numero, presenterà mensilmente 
degli articoli dedicati al personal 
computer, con particolare riguardo 
al più diffuso di essi: il Sinclair. 
Hardware, software, consigli 

e idee da sviluppare insieme, 
saranno un contenuto abituale di 
Sperimentare. 

Per questo motivo, Sperimentare 
sarà d'ora in poi la rivista non solo 
del tecnico elettronico e 
dell'hobbista, ma anche il mensile 
dell’utente di personal computer. 
Acquista il numero in edicola 
con l'inserto Sinclub. 

Un numero stimolante della rivista 
senza confronti. 


SPERIMENTARE 


UNA PUBBLICAZIONE J.C.E. 


Servizio programmi 


Per alcuni dei programmi pubblicati, Personal Software mette a disposizione dischi e 
nastri già registrati, realizzati in collaborazione con l’autore. Potete ottenerli in contras- 
segno, pagando direttamente al postino la cifra indicata, spedendo il tagliando pubbli- 
cato in fondo alla pagina. 


N. Sistema Programmi Supporto pubblicato in Prezzo 
Personal Software n. 
1 Applell+ La carta del cielo floppy 5” 3 pag. 83 30.000 
Collisione DOS 3.3 3 pag. 93 
2 TRS-80 mod.I| Backgammon floppy 5” 3 pag. 89 25.000 
DOS 2.3 
3. PET/CBM 3032/4032 Editor/Assembler in Basic floppy 5” 2 pag. 33 40.000 
3032/4032+3040/4040 
4. Apple ll+ Interi in precisione floppy 5” 4 pag. 17 40.000 
multipla DOS 3.3 
5 PET/CBM 3032/4032 Gioco del calcio floppy 5" 4 pag. 67 25.000 
3032/4032+3040/4040 
Spedire in busta Inviatemi i seguenti nastri e/o dischi con i programmi pubblicati su Perso- 
chiusa a nal Software 
n. PIE 


PERSONAL SOFTWARE 


Servizio Programmi per untotale di lire 5 
Via Rosellini 12 che pagherò al postino alla consegna del pacco. 
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è cominciato. 

Siamo nell'era 

dell'elettronica 

e dell'informatica. 

Una rivoluzione silenziosa 

sta cambiando il nostro modo 

di vivere, pensare, esprimerci 

Una scelta ci sta oggi davanti: 
subire le novità 

che ci attendono oppure 

viverle da protagonisti; 
impadronirci del futuro 

o farcene travolgere. Decidiamo! 
Varcare le soglie 

del micro-millennio, 
conoscendone tutti i segreti 

è oggi possibile. Oggi c'è 

E.I. l'enciclopedia 

dell'elettronica e dell'informatica. 
Un'opera unica al mondo, 

scritta da specialisti 

per uomini-protagonisti. 

E completa, rigorosa, documentata, 
facile da capire... anche se parla di 
elettrotecnica, elettronica di base, 
elettronica digitale, microprocessori, 
comunicazioni, informatica di base, 
informatica e società. 

Tutto quello che volete e dovete 
sapere sul micro-millennio 

che ci sta aspettando. 


Ei Enciclopedia di 


Elettronica e Informatica 

50 fascicoli settimanali 

@ 12 pagine di elettronica digitale 

e microprocessori 

@ 16 pagine di informatica 

(oppure elettronica 

di base e comunicazioni) 

@ 1scheda (2 pagine) di elettrotecnica 
per ottenere in meno di un anno 

@ 7 grandi volumi 

@ 1400 pagine complessive 

@ 1 volume schede di elettrotecnica 
L'opera è arricchita da circa 700 foto 
e 2200 illustrazioni a colori. 
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È, I RIST > 4 | 
TRENT LE 
Ogni settimana IR 
l'elettronica, l'informatica, BE | 
l'elettrotecnica in un unico fascicolo lì i 


(TA 


le 
ll.89 Enciclopedia di Elettronica e Informatica 
Oggi in edicola... domani nella vostra biblioteca 


Response 


ira i 
continua a crescere. 
Vi. a 


\ 


Apple ha introdotto il concetto di personal in tutto il mondo. E in tutto il mondo 
Apple cresce. Cresce anche in Italia dove la Iret, che lo importa e ne cura 
l'assistenza, può oggi annunciare l'esistenza di una rete di vendita di oltre 300 
centri specializzati che fanno di Apple il loro cavallo di battaglia. 

E naturalmente crescono le vendite di Apple, perché il personal computing 
conquista piccole aziende, professionisti e privati. È facile prevedere quindi che 
Apple continuerà a crescere, anche perché l’unica cosa di Apple che non 
cresce sono i prezzi. (Chiedete l'offerta speciale ai nostri rivenditori). 


$ 
@gappie Il Personal Computer \O cos 
Si ea 
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